[Emacs-diffs] /srv/bzr/emacs/trunk r104616: * src/fns.c (Fsafe_length): Yet another int/Lisp_Object mixup.

[Stefan Monnier]

------------------------------------------------------------
revno: 104616
committer: Stefan Monnier <address@hidden>
branch nick: trunk
timestamp: Fri 2011-06-17 11:18:54 -0400
message:
  * src/fns.c (Fsafe_length): Yet another int/Lisp_Object mixup.
modified:
  src/ChangeLog
  src/fns.c

=== modified file 'src/ChangeLog'
--- a/src/ChangeLog     2011-06-16 22:50:46 +0000
+++ b/src/ChangeLog     2011-06-17 15:18:54 +0000
@@ -1,3 +1,7 @@
+2011-06-17  Stefan Monnier  <address@hidden>
+
+       * fns.c (Fsafe_length): Yet another int/Lisp_Object mixup.
+
 2011-06-16  Paul Eggert  <address@hidden>
 
        * lisp.h: Include <limits.h>, for INT_MAX, LONG_MAX, LLONG_MAX.

=== modified file 'src/fns.c'
--- a/src/fns.c 2011-06-14 23:18:53 +0000
+++ b/src/fns.c 2011-06-17 15:18:54 +0000
@@ -168,7 +168,7 @@
   uintmax_t lolen = 1;
 
   if (! CONSP (list))
-    return 0;
+    return make_number (0);
 
   /* halftail is used to detect circular lists.  */
   for (tail = halftail = list; ; )