From d6df5ca34de8c747fd6e9bac57152e3bafbc0a52 Mon Sep 17 00:00:00 2001
From: pfdietz <pfdietz@localhost>
Date: Tue, 24 Aug 2004 13:13:15 +0000
Subject: [PATCH] More ~* tests, including tests in iteration forms

---
 ansi-tests/format-goto.lsp | 43 ++++++++++++++++++++++++++++++++++++++
 1 file changed, 43 insertions(+)

diff --git a/ansi-tests/format-goto.lsp b/ansi-tests/format-goto.lsp
index 0d89dbf3..d856f665 100644
--- a/ansi-tests/format-goto.lsp
+++ b/ansi-tests/format-goto.lsp
@@ -41,6 +41,10 @@
   (format nil "~A~{~A~*~A~}~A" 0 '(1 2 3 4 5 6) 7)
   "013467")
 
+(deftest format.*.9
+  (format nil "~A~{~A~A~A~A~v*~^~A~A~A~A~}~A" 0 '(1 2 3 4 nil 6 7 8 9 #\A) 5)
+  "01234789A5")
+
 ;;; ~:*
 
 (deftest format.\:*.1
@@ -71,6 +75,30 @@
   (format nil "~A~A~v:*~A" 6 7 nil 3)
   "67NIL")
 
+(deftest format.\:*.8
+  (format nil "~A~1{~A~:*~A~}~A" 0 '(1 2 3) 4)
+  "0114")
+
+(deftest format.\:*.9
+  (format nil "~A~1{~A~A~A~:*~A~}~A" 0 '(1 2 3 4) 5)
+  "012335")
+
+(deftest format.\:*.10
+  (format nil "~A~1{~A~A~A~2:*~A~A~}~A" 0 '(1 2 3 4) 5)
+  "0123235")
+
+(deftest format.\:*.11
+  (format nil "~A~{~A~A~A~3:*~A~A~A~A~}~A" 0 '(1 2 3 4) 5)
+  "012312345")
+
+(deftest format.\:*.12
+  (format nil "~A~{~A~A~A~A~4:*~^~A~A~A~A~}~A" 0 '(1 2 3 4) 5)
+  "0123412345")
+
+(def-pprint-test format.\:*.13
+  (format nil "~A~{~A~A~A~A~v:*~^~A~}~A" 0 '(1 2 3 4 nil) 5)
+  "01234NIL5")
+
 ;;; ~@*
 
 (deftest format.@*.1
@@ -101,4 +129,19 @@
   (format nil "~A~A~v@*~A~A" 6 7 2 3 4)
   "6723")
 
+(deftest format.@*.8
+  (format nil "~A~{~A~A~@*~A~A~}~A" 0 '(1 2) 9)
+  "012129")
+
+(deftest format.@*.9
+  (format nil "~A~{~A~A~0@*~A~A~}~A" 0 '(1 2) 9)
+  "012129")
+
+(deftest format.@*.10
+  (format nil "~A~1{~A~A~v@*~A~A~}~A" 0 '(1 2 nil) 9)
+  "012129")
+
+(deftest format.@*.11
+  (format nil "~A~{~A~A~1@*~A~}~A" 0 '(1 2) 9)
+  "01229")
 
-- 
GitLab