298 |
(def-pprint-test format.logical-block.circle.5 |
(def-pprint-test format.logical-block.circle.5 |
299 |
(format nil "~:<~@{~A~^ ~}~:>" (let ((x (list 0))) (cons x x))) |
(format nil "~:<~@{~A~^ ~}~:>" (let ((x (list 0))) (cons x x))) |
300 |
"((0) 0)") |
"((0) 0)") |
301 |
|
|
302 |
|
;;; ~^ terminates a logical block |
303 |
|
|
304 |
|
(def-pprint-test format.logical-block.escape.1 |
305 |
|
(format nil "~<~A~^xxxx~:>" '(1)) |
306 |
|
"1") |
307 |
|
|
308 |
|
(def-pprint-test format.logical-block.escape.2 |
309 |
|
(format nil "~<~<~A~^xxx~:>yyy~:>" '((1))) |
310 |
|
"1yyy") |