[armedbear-cvs] r13653 - trunk/abcl/src/org/armedbear/lisp

[ehuelsmann at common-lisp.net]

Author: ehuelsmann
Date: Fri Oct 21 02:14:45 2011
New Revision: 13653

Log:
Fix IRONCLAD compilation.

Modified:
   trunk/abcl/src/org/armedbear/lisp/dump-form.lisp

Modified: trunk/abcl/src/org/armedbear/lisp/dump-form.lisp
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/dump-form.lisp	Fri Oct 21 01:41:34 2011	(r13652)
+++ trunk/abcl/src/org/armedbear/lisp/dump-form.lisp	Fri Oct 21 02:14:45 2011	(r13653)
@@ -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)