Skip to content
Snippets Groups Projects
Commit 557c0db8 authored by pfdietz's avatar pfdietz
Browse files

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

parent 59a9a6b1
No related branches found
No related tags found
No related merge requests found
...@@ -289,7 +289,8 @@ ...@@ -289,7 +289,8 @@
(setf (cdr x) x) (setf (cdr x) x)
x)) x))
"#1=(0 . #1#)" "#1=(0 . #1#)"
:circle t) :circle t
:length 500)
(def-pprint-test format.logical-block.circle.4 (def-pprint-test format.logical-block.circle.4
(format nil "~:<~@{~A~^ ~}~:>" (let ((x (list 0))) (list x x))) (format nil "~:<~@{~A~^ ~}~:>" (let ((x (list 0))) (list x x)))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment