Commit 557c0db8 authored by pfdietz's avatar pfdietz

Add :length 500 to format.logical-block.circle.3 to make failure more graceful

parent 59a9a6b1
......@@ -289,7 +289,8 @@
(setf (cdr x) x)
x))
"#1=(0 . #1#)"
:circle t)
:circle t
:length 500)
(def-pprint-test format.logical-block.circle.4
(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