[armedbear-cvs] r13654 - branches/1.0.x/abcl/src/org/armedbear/lisp

[mevenson at common-lisp.net]

Author: mevenson
Date: Fri Oct 21 04:29:16 2011
New Revision: 13654

Log:
Backport r13653:  Fix Ironclad compilation.

Modified:
   branches/1.0.x/abcl/src/org/armedbear/lisp/dump-form.lisp

Modified: branches/1.0.x/abcl/src/org/armedbear/lisp/dump-form.lisp
==============================================================================
--- branches/1.0.x/abcl/src/org/armedbear/lisp/dump-form.lisp	Fri Oct 21 02:14:45 2011	(r13653)
+++ branches/1.0.x/abcl/src/org/armedbear/lisp/dump-form.lisp	Fri Oct 21 04:29:16 2011	(r13654)
@@ -121,7 +121,7 @@
       (t
        (unless *prevent-fasl-circle-detection*
          (assert (or (eq index t)
-                     (fixnump object))))))))
+                     (integerp object)))))))) ;; strictly this should be 'long'
 
 (declaim (ftype (function (cons stream) t) dump-cons))
 (defun dump-cons (object stream)