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

[ehuelsmann at common-lisp.net]

Author: ehuelsmann
Date: Tue Sep 20 11:01:00 2011
New Revision: 13603

Log:
Change assertion instead of hash table type; every object other than
our fixnums should be EQ anyway. EQ makes the hash table more efficient.

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	Tue Sep 20 01:16:04 2011	(r13602)
+++ trunk/abcl/src/org/armedbear/lisp/dump-form.lisp	Tue Sep 20 11:01:00 2011	(r13603)
@@ -120,7 +120,8 @@
        (return-from df-handle-circularity t))
       (t
        (unless *prevent-fasl-circle-detection*
-         (assert (eq index t)))))))
+         (assert (or (eq index t)
+                     (fixnump object))))))))
 
 (declaim (ftype (function (cons stream) t) dump-cons))
 (defun dump-cons (object stream)