mirror of
git://git.code.sf.net/p/sbcl/sbcl
synced 2026-09-10 07:26:40 -04:00
23c0c48f56
* We need to detect car-circularity too, which can get expensive, so we approximate: CYCLIC-LIST-P => MAYBE-CYCLIC-P * Reported by Marco Monteiro on sbcl-devel.
6 lines
179 B
Common Lisp
6 lines
179 B
Common Lisp
;;; fasl-dumper and circular trees, reported by Marco Monteiro
|
|
(COMPILE NIL
|
|
'(LAMBDA ()
|
|
(LIST '#5= (#5# #5# . #5#))
|
|
(LIST '#6= (#7= (#6#) . #7#))))
|