From 19b321916bbde9afaebfdd94723b3812d8487779 Mon Sep 17 00:00:00 2001
From: pfdietz <pfdietz@localhost>
Date: Sat, 21 Aug 2004 11:48:40 +0000
Subject: [PATCH] More format logical block tests, involving per-line prefixes

---
 ansi-tests/format-logical-block.lsp | 22 ++++++++++++++++++++++
 1 file changed, 22 insertions(+)

diff --git a/ansi-tests/format-logical-block.lsp b/ansi-tests/format-logical-block.lsp
index e358b049..44a16fdd 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
-- 
GitLab