Changeset 11749

Timestamp:

04/09/09 14:17:33 (13 years ago)

Author:

ehuelsmann

Message:

Follow up to r11747: remove SETF which causes iteration to terminate,

while without it, it will merely be handled in the next iteration.

File:

• trunk/abcl/src/org/armedbear/lisp/boot.lisp (modified) (1 diff)

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

@@ -206 +206 @@
                             (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