diff --git a/ansi-tests/format-logical-block.lsp b/ansi-tests/format-logical-block.lsp index e358b0499b21156134c26eeaf5eb9a9a51e0c03f..44a16fddbccc0ce1e1d9f232f7e7b395df10053b 100644 --- a/ansi-tests/format-logical-block.lsp +++ b/ansi-tests/format-logical-block.lsp @@ -235,6 +235,28 @@ "(1 2 3)" :margin 2) +(def-pprint-test format.logical-block.27 + (format nil "~@<**~@;~@{~A~^ ~}~:@>" 1 2 3) + "**1 +**2 +**3" + :margin 3) + +(def-pprint-test format.logical-block.28 + (format nil "~@<**~@;~@{~A~^ ~}~;XX~:@>" 1 2 3) + "**1 +**2 +**3XX" + :margin 3) + +(def-pprint-test format.logical-block.29 + (format nil "~:@<**~@;~@{~A~^ ~}~:@>" 1 2 3) + "**1 +**2 +**3)" + :margin 3) + + ;;; Circularity detection (def-pprint-test format.logical-block.circle.1