Changeset 11749
- Timestamp:
- 04/09/09 14:17:33 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/abcl/src/org/armedbear/lisp/boot.lisp
r11747 r11749 206 206 (element-replacement c))) 207 207 (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 211 209 ((recursable-element-p d) 212 210 ;; ARRAY, STRUCTURE-OBJECT and STANDARD-OBJECT
Note: See TracChangeset
for help on using the changeset viewer.