From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Tue, 1 Nov 2005 19:46:16 +0000 (+0000)
Subject: (readevalloop): Yet another int/Lisp_Object mixup (YAILOM).
X-Git-Tag: emacs-pretest-22.0.90~6133
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c1ed1b2039ea2aa2e6f5d63c2a4f13afb3320844;p=emacs.git

(readevalloop): Yet another int/Lisp_Object mixup (YAILOM).
---

diff --git a/src/lread.c b/src/lread.c
index 3097a6b7c3e..bac5ad4f161 100644
--- a/src/lread.c
+++ b/src/lread.c
@@ -1416,7 +1416,8 @@ readevalloop (readcharfun, stream, sourcename, evalfun,
     }
 
   build_load_history (sourcename, 
-		      stream || (start == BEG && end == Z));
+		      stream || (INTEGERP (start) && INTEGERP (end)
+				 && XINT (start) == BEG && XINT (end) == Z));
 
   UNGCPRO;