diff --git a/ansi-tests/format-goto.lsp b/ansi-tests/format-goto.lsp index 0d89dbf3d1cfa45e17997efde3799675a3ccb5fa..d856f6656e65242c0a8f12f1af87ed69793f4ffd 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")