Commit 557c0db8 authored by pfdietz's avatar pfdietz
Browse files

Add :length 500 to to make failure more graceful

parent 59a9a6b1
......@@ -289,7 +289,8 @@
(setf (cdr x) x)
"#1=(0 . #1#)"
:circle t)
:circle t
:length 500)
(format nil "~:<~@{~A~^ ~}~:>" (let ((x (list 0))) (list x x)))
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment