(when (and (not known-objects) *print-circle*)
;; To support *print-circle* some objects must be tracked for
;; sharing: conses, arrays and apparently-uninterned symbols.
(when (and (not known-objects) *print-circle*)
;; To support *print-circle* some objects must be tracked for
;; sharing: conses, arrays and apparently-uninterned symbols.