diff src/lread.c @ 28507:b6f06a755c7d

make_number/XINT/XUINT conversions; EQ/== fixes; ==Qnil -> NILP
author Ken Raeburn <raeburn@raeburn.org>
date Wed, 05 Apr 2000 17:29:31 +0000
parents 5b49a098d0cc
children 83d4e44ed68e
line wrap: on
line diff
--- a/src/lread.c	Tue Apr 04 21:15:08 2000 +0000
+++ b/src/lread.c	Wed Apr 05 17:29:31 2000 +0000
@@ -2334,7 +2334,7 @@
     case Lisp_Vectorlike:
       {
 	int i;
-	int length = Flength(subtree);
+	int length = XINT (Flength(subtree));
 	for (i = 0; i < length; i++)
 	  {
 	    Lisp_Object idx = make_number (i);