# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1130874376 0
# Node ID fdbdbec40f5a84f001f97193af3a97891b63fcb0
# Parent  8a6d017601ce11b9b835c45645c335b57143cd09
(readevalloop): Yet another int/Lisp_Object mixup (YAILOM).

diff -r 8a6d017601ce -r fdbdbec40f5a src/lread.c
--- a/src/lread.c	Tue Nov 01 17:35:33 2005 +0000
+++ b/src/lread.c	Tue Nov 01 19:46:16 2005 +0000
@@ -1416,7 +1416,8 @@
     }
 
   build_load_history (sourcename, 
-		      stream || (start == BEG && end == Z));
+		      stream || (INTEGERP (start) && INTEGERP (end)
+				 && XINT (start) == BEG && XINT (end) == Z));
 
   UNGCPRO;