# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1023808438 0
# Node ID 2049fa380cb1a7b28594dbf9960da1992f9549a9
# Parent  8f026a28517cef2fda6478efe8dcf1a62be11f08
(read_integer): Remove unused var `tem'.
(read1): Fix int/Lisp_Object mixup.

diff -r 8f026a28517c -r 2049fa380cb1 src/lread.c
--- a/src/lread.c	Tue Jun 11 15:09:36 2002 +0000
+++ b/src/lread.c	Tue Jun 11 15:13:58 2002 +0000
@@ -1461,7 +1461,6 @@
      Lisp_Object stream;
 {
   extern Lisp_Object Fread_minibuffer ();
-  Lisp_Object tem;
   if (NILP (stream))
     stream = Vstandard_input;
   if (EQ (stream, Qt))
@@ -2513,7 +2512,9 @@
 	      /* Kind of a hack; this will probably fail if characters
 		 in the symbol name were escaped.  Not really a big
 		 deal, though.  */
-	      Fcons (Fcons (result, readchar_count - Flength (Fsymbol_name (result))),
+	      Fcons (Fcons (result,
+			    make_number (readchar_count
+					 - XFASTINT (Flength (Fsymbol_name (result))))),
 		     Vread_symbol_positions_list);
 	  return result;
 	}