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

[Erik Huelsmann]

Author: ehuelsmann
Date: Thu Apr  9 10:17:33 2009
New Revision: 11749

Log:
Follow up to r11747: remove SETF which causes iteration to terminate,
  while without it, it will merely be handled in the next iteration.

Modified:
   trunk/abcl/src/org/armedbear/lisp/boot.lisp

Modified: trunk/abcl/src/org/armedbear/lisp/boot.lisp
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/boot.lisp	(original)
+++ trunk/abcl/src/org/armedbear/lisp/boot.lisp	Thu Apr  9 10:17:33 2009
@@ -205,9 +205,7 @@
                             (circle-subst old-new-alist c)
                             (element-replacement c)))
                      (b (cond
-                         ((consp d) ;; CONSes handled in the loop
-                          (setf (gethash d *sharp-equal-circle-table*) t)
-                          d)
+                         ((consp d) d) ;; CONSes handled in the loop
                          ((recursable-element-p d)
                           ;; ARRAY, STRUCTURE-OBJECT and STANDARD-OBJECT
                           ;; handled in recursive calls