Changeset 11749


Ignore:
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:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/src/org/armedbear/lisp/boot.lisp

    r11747 r11749  
    206206                            (element-replacement c)))
    207207                     (b (cond
    208                          ((consp d) ;; CONSes handled in the loop
    209                           (setf (gethash d *sharp-equal-circle-table*) t)
    210                           d)
     208                         ((consp d) d) ;; CONSes handled in the loop
    211209                         ((recursable-element-p d)
    212210                          ;; ARRAY, STRUCTURE-OBJECT and STANDARD-OBJECT
Note: See TracChangeset for help on using the changeset viewer.