/[gcl]/gcl/ansi-tests/format-circumflex.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/format-circumflex.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.13 by pfdietz, Sat Nov 27 14:14:51 2004 UTC revision 1.14 by pfdietz, Sat Nov 27 19:36:18 2004 UTC
# Line 8  Line 8 
8    
9  ;;; Tests of ~^ inside ~{ ... ~}  ;;; Tests of ~^ inside ~{ ... ~}
10    
11  (deftest format.^.{.1  (def-format-test format.^.{.1
12    (format nil "~{X ~A~^ Y ~A~^ ~}" '(1 2 3 4 5))    "~{X ~A~^ Y ~A~^ ~}" ('(1 2 3 4 5)) "X 1 Y 2 X 3 Y 4 X 5")
   "X 1 Y 2 X 3 Y 4 X 5")  
   
 (deftest format.^.{.2  
   (format nil "~{X ~A~^ Y ~A~^ ~}" '(1 2 3 4))  
   "X 1 Y 2 X 3 Y 4")  
13    
14  (deftest format.^.{.3  (def-format-test format.^.{.2
15    (format nil "~1{~A~^~A~}" '(1))    "~{X ~A~^ Y ~A~^ ~}" ('(1 2 3 4)) "X 1 Y 2 X 3 Y 4")
   "1")  
16    
17  (deftest format.^.{.4  (def-format-test format.^.{.3
18    (format nil "~0{~A~^~A~}" '(1))    "~1{~A~^~A~}" ('(1)) "1")
   "")  
19    
20  (deftest format.^.{.5  (def-format-test format.^.{.4
21    (format nil "~1{~A~^~A~}" '(1 2 3))    "~0{~A~^~A~}" ('(1)) "")
   "12")  
22    
23  (deftest format.^.{.6  (def-format-test format.^.{.5
24    (format nil "~{~A~A~0^~A~}" '(1 2 3 4 5 6))    "~1{~A~^~A~}" ('(1 2 3)) "12")
   "12")  
25    
26  (deftest format.^.{.7  (def-format-test format.^.{.6
27    (format nil "~{~A~A~v^~A~}" '(1 2 3 4 5 6 0 7 8 9 10 11 12))    "~{~A~A~0^~A~}" ('(1 2 3 4 5 6)) "12")
   "12456")  
28    
29  (deftest format.^.{.8  (def-format-test format.^.{.7
30    (format nil "~{~#,3^~A~}" '(1 2 3 4 5 6 7 8 9 10))    "~{~A~A~v^~A~}" ('(1 2 3 4 5 6 0 7 8 9 10 11 12)) "12456")
   "1234567")  
31    
32  (deftest format.^.{.9  (def-format-test format.^.{.8
33    (format nil "~{~2,#^~A~}~A" '(1 2 3 4 5 6 7 8 9 10) 0)    "~{~#,3^~A~}" ('(1 2 3 4 5 6 7 8 9 10)) "1234567")
   "123456780")  
34    
35  (deftest format.^.{.10  (def-format-test format.^.{.9
36    (format nil "~{~#,#^~A~}" '(1 2 3 4 5 6 7 8 9 10))    "~{~2,#^~A~}~A" ('(1 2 3 4 5 6 7 8 9 10) 0) "123456780")
   "")  
37    
38  (deftest format.^.{.11  (def-format-test format.^.{.10
39    (format nil "~{~#,#,#^~A~}" '(1 2 3 4 5 6 7 8 9 10))    "~{~#,#^~A~}" ('(1 2 3 4 5 6 7 8 9 10)) "")
40    "")  
41    (def-format-test format.^.{.11
42      "~{~#,#,#^~A~}" ('(1 2 3 4 5 6 7 8 9 10)) "")
43    
44  (deftest format.^.{.12  (def-format-test format.^.{.12
45    (format nil "~{~#,1,2^~A~}" '(1 2 3 4 5 6 7 8 9 10))    "~{~#,1,2^~A~}" ('(1 2 3 4 5 6 7 8 9 10)) "123456789")
   "123456789")  
46    
47  (deftest format.^.{.13  (def-format-test format.^.{.13
48    (format nil "~{~#,#,v^~A~}" '(1 2 3 4 5 6 7 8 9 10))    "~{~#,#,v^~A~}" ('(1 2 3 4 5 6 7 8 9 10)) "246")
   "246")  
49    
50  (deftest format.^.{.14  (def-format-test format.^.{.14
51    (format nil "~{~#,#,v^~A~}" '(1 2 3 4 5 6 7 8 9 10 11))    "~{~#,#,v^~A~}" ('(1 2 3 4 5 6 7 8 9 10 11)) "246")
   "246")  
52    
53  (deftest format.^.{.15  (def-format-test format.^.{.15
54    (format nil "~{~#,#,v^~A~}" '(1 2 3 4 5 6 7 8 9 10 11 12))    "~{~#,#,v^~A~}" ('(1 2 3 4 5 6 7 8 9 10 11 12)) "246")
   "246")  
55    
56  (deftest format.^.{.16  (def-format-test format.^.{.16
57    (format nil "~{~#,#,v^~A~}" '(1 2 3 4 5 6 7 8 9 10 11 12 13))    "~{~#,#,v^~A~}" ('(1 2 3 4 5 6 7 8 9 10 11 12 13)) "246")
   "246")  
58    
59  (deftest format.^.{.17  (def-format-test format.^.{.17
60    (format nil "~{~#,#,v^~A~}" '(1 2 3 4 5 6 7 8 9 10 11 12 13 14))    "~{~#,#,v^~A~}" ('(1 2 3 4 5 6 7 8 9 10 11 12 13 14)) "2468")
   "2468")  
61    
62  (deftest format.^.{.18  (def-format-test format.^.{.18
63    (format nil "~{~v,v^~A~}" (list (1+ most-positive-fixnum)    "~{~v,v^~A~}" ((list (1+ most-positive-fixnum)
64                                    (1+ most-positive-fixnum)                         (1+ most-positive-fixnum)
65                                    1))                         1))
66    "")    "")
67    
68  (deftest format.^.{.19  (def-format-test format.^.{.19
69    (format nil "~{~0,v,v^~A~}" (list (1+ most-positive-fixnum)    "~{~0,v,v^~A~}" ((list (1+ most-positive-fixnum)
70                                    (1+ most-positive-fixnum)                           (1+ most-positive-fixnum)
71                                    1))                           1))
72    "")    "")
73    
74  (deftest format.^.{.20  (def-format-test format.^.{.20
75    (format nil "~{~0,v,v^~A~}" (list (1+ most-positive-fixnum)    "~{~0,v,v^~A~}" ((list (1+ most-positive-fixnum)
76                                      most-positive-fixnum                           most-positive-fixnum
77                                      1))                           1))
78    "1")    "1")
79    
80  (deftest format.^.{.21  (def-format-test format.^.{.21
81    (format nil "~{~1,v^~A~}" '(nil 8 nil 7 0 6 1 5))    "~{~1,v^~A~}" ('(nil 8 nil 7 0 6 1 5)) "876")
   "876")  
   
 (deftest format.^.{.22  
   (format nil "~{~0,v^~A~}" '(3 8 1 7 3 6 nil 5))  
   "876")  
82    
83  (deftest format.^.{.23  (def-format-test format.^.{.22
84    (format nil "~{~1,2,v^~A~}" '(0 1 0 2 0 3 3 4))    "~{~0,v^~A~}" ('(3 8 1 7 3 6 nil 5)) "876")
   "123")  
85    
86  (deftest format.^.{.24  (def-format-test format.^.{.23
87    (format nil "~{~1,2,v^~A~}" '(0 1 0 2 0 3 nil 4))    "~{~1,2,v^~A~}" ('(0 1 0 2 0 3 3 4)) "123")
   "1234")  
88    
89  (deftest format.^.{.25  (def-format-test format.^.{.24
90    (format nil "~{~1,1,v^~A~}" '(0 1 0 2 0 3 nil 4))    "~{~1,2,v^~A~}" ('(0 1 0 2 0 3 nil 4)) "1234")
   "123")  
91    
92  (deftest format.^.{.26  (def-format-test format.^.{.25
93    (format nil "~{~'X^~A~}" '(1 2 3))    "~{~1,1,v^~A~}" ('(0 1 0 2 0 3 nil 4)) "123")
   "123")  
94    
95  (deftest format.^.{.27  (def-format-test format.^.{.26
96    (format nil "~{~v,'X^~A~}" '(0 1 #\x 2 nil 3 #\X 4 0 5))    "~{~'X^~A~}" ('(1 2 3)) "123")
   "123")  
97    
98  (deftest format.^.{.28  (def-format-test format.^.{.27
99    (format nil "~{~'X,v^~A~}" '(0 1 #\x 2 nil 3 #\X 4 0 5))    "~{~v,'X^~A~}" ('(0 1 #\x 2 nil 3 #\X 4 0 5)) "123")
   "123")  
100    
101  (deftest format.^.{.29  (def-format-test format.^.{.28
102    (format nil "~{~v,v^~A~}" '(0 2 1 #\x #\X 2 5 #\X 3 #\y #\y 4 1 2 5))    "~{~'X,v^~A~}" ('(0 1 #\x 2 nil 3 #\X 4 0 5)) "123")
   "123")  
103    
104  (deftest format.^.{.30  (def-format-test format.^.{.29
105    (format nil "~{~',,',^~A~}" '(1 2 3))    "~{~v,v^~A~}" ('(0 2 1 #\x #\X 2 5 #\X 3 #\y #\y 4 1 2 5)) "123")
   "")  
106    
107  (deftest format.^.{.31  (def-format-test format.^.{.30
108    (format nil "~{~1,v,v^~A~}" '(#\a nil 0))    "~{~',,',^~A~}" ('(1 2 3)) "")
   "0")  
109    
110  (deftest format.^.{.32  (def-format-test format.^.{.31
111    (format nil "~{~v,1,v^~A~}" '(#\a nil 0))    "~{~1,v,v^~A~}" ('(#\a nil 0)) "0")
   "0")  
112    
113  (deftest format.^.{.33  (def-format-test format.^.{.32
114    (format nil "~{~v,v,v^~A~}" '(#\a #\a nil 0))    "~{~v,1,v^~A~}" ('(#\a nil 0)) "0")
115    "")  
116    (def-format-test format.^.{.33
117      "~{~v,v,v^~A~}" ('(#\a #\a nil 0)) "")
118    
119  ;;; ~^ with ~:{  ;;; ~^ with ~:{
120    
121  (deftest format.^.\:{.1  (def-format-test format.^.\:{.1
122    (format nil "~:{~A~^~A~A~}" '((1)(2 3 4)(5 6 7 8)))    "~:{~A~^~A~A~}" ('((1)(2 3 4)(5 6 7 8))) "1234567")
   "1234567")  
123    
124  (deftest format.^.\:{.2  (def-format-test format.^.\:{.2
125    (format nil "~:{~A~0^~A~A~}" '((1)(2 3 4)(5 6 7 8)))    "~:{~A~0^~A~A~}" ('((1)(2 3 4)(5 6 7 8))) "125")
   "125")  
126    
127  (deftest format.^.\:{.3  (def-format-test format.^.\:{.3
128    (format nil "~:{~#^~A~}" '((1)(2 3 4)()(5 6 7 8))())    "~:{~#^~A~}" ('((1)(2 3 4)()(5 6 7 8))()) "125")
   "125")  
129    
130  (deftest format.^.\:{.4  (def-format-test format.^.\:{.4
131    (format nil "~:{~#^~A~#^~A~#^~A~#^~A~}" '((1)(2 3 4)()(5 6 7 8))())    "~:{~#^~A~#^~A~#^~A~#^~A~}" ('((1)(2 3 4)()(5 6 7 8))()) "12345678")
   "12345678")  
132    
133  (deftest format.^.\:{.5  (def-format-test format.^.\:{.5
134    (format nil "~:{~v^~A~}" '((1 2 3)(0)(2 4)(0 5)(1 6 7 8)))    "~:{~v^~A~}" ('((1 2 3)(0)(2 4)(0 5)(1 6 7 8))) "246")
   "246")  
135    
136  (deftest format.^.\:{.6  (def-format-test format.^.\:{.6
137    (format nil "~:{~v^~A~}" '((nil)(nil 1)(1 2)))    "~:{~v^~A~}" ('((nil)(nil 1)(1 2))) "12")
   "12")  
138    
139  (deftest format.^.\:{.7  (def-format-test format.^.\:{.7
140    (format nil "~:{~v^~A~}" '((#\x 1)(#\y 2)(0 3)(1 4)))    "~:{~v^~A~}" ('((#\x 1)(#\y 2)(0 3)(1 4))) "124")
   "124")  
141    
142  (deftest format.^.\:{.8  (def-format-test format.^.\:{.8
143    (format nil "~:{~v,3^~A~}" '((1 1)(2 0)(3 4)(5 6)))    "~:{~v,3^~A~}" ('((1 1)(2 0)(3 4)(5 6))) "106")
   "106")  
144    
145  (deftest format.^.\:{.9  (def-format-test format.^.\:{.9
146    (format nil "~:{~3,v^~A~}" '((1 1)(2 0)(3 4)(5 6)))    "~:{~3,v^~A~}" ('((1 1)(2 0)(3 4)(5 6))) "106")
   "106")  
147    
148  (deftest format.^.\:{.10  (def-format-test format.^.\:{.10
149    (format nil "~:{~v,3^~A~}" '((#\x 1)))    "~:{~v,3^~A~}" ('((#\x 1))) "1")
   "1")  
150    
151  (deftest format.^.\:{.11  (def-format-test format.^.\:{.11
152    (format nil "~:{~2,v^~A~}" '((#\x 1)))    "~:{~2,v^~A~}" ('((#\x 1))) "1")
   "1")  
153    
154  (deftest format.^.\:{.12  (def-format-test format.^.\:{.12
155    (format nil "~:{~v,v^~A~}" '((1 2 0) (0 1 1) (1 0 2) (3 3 5) (4 5 6)))    "~:{~v,v^~A~}" ('((1 2 0) (0 1 1) (1 0 2) (3 3 5) (4 5 6))) "0126")
   "0126")  
   
 (deftest format.^.\:{.13  
   (format nil "~:{~v,v^~A~}" '((1 2 0) (#\a #\A 1) (#\A #\A 2) (1 2 3)))  
   "013")  
156    
157  (deftest format.^.\:{.14  (def-format-test format.^.\:{.13
158    (format nil "~:{~'x,3^~A~}" '((1)))    "~:{~v,v^~A~}" ('((1 2 0) (#\a #\A 1) (#\A #\A 2) (1 2 3))) "013")
   "1")  
159    
160  (deftest format.^.\:{.15  (def-format-test format.^.\:{.14
161    (format nil "~:{~3,'x^~A~}" '((1)))    "~:{~'x,3^~A~}" ('((1))) "1")
   "1")  
162    
163  (deftest format.^.\:{.16  (def-format-test format.^.\:{.15
164    (format nil "~:{~'x,'x^~A~}" '((1)))    "~:{~3,'x^~A~}" ('((1))) "1")
   "")  
165    
166  (deftest format.^.\:{.17  (def-format-test format.^.\:{.16
167    (format nil "~:{~#,1^~A~}" '((1)(2 10)(3 a b)(4)(5 x)(6)(7 8)))    "~:{~'x,'x^~A~}" ('((1))) "")
   "2357")  
168    
169  (deftest format.^.\:{.18  (def-format-test format.^.\:{.17
170    (format nil "~:{~1,#^~A~}" '((1)(2 10)(3 a b)(4)(5 x)(6)(7 8)))    "~:{~#,1^~A~}" ('((1)(2 10)(3 a b)(4)(5 x)(6)(7 8))) "2357")
   "2357")  
171    
172  (deftest format.^.\:{.19  (def-format-test format.^.\:{.18
173    (format nil "~:{~#,#^~A~}" '((1)()(2 10)(3 a b)(4)(5 x)(6)(7 8)))    "~:{~1,#^~A~}" ('((1)(2 10)(3 a b)(4)(5 x)(6)(7 8))) "2357")
   "")  
174    
175  (deftest format.^.\:{.20  (def-format-test format.^.\:{.19
176    (format nil "~:{~0,v^~A~}" '((0 1)(1 2)(nil 3)(2 4)))    "~:{~#,#^~A~}" ('((1)()(2 10)(3 a b)(4)(5 x)(6)(7 8))) "")
   "24")  
177    
178  (deftest format.^.\:{.21  (def-format-test format.^.\:{.20
179    (format nil "~:{~1,v^~A~}" '((0 1)(1 2)(nil 3)(2 4)))    "~:{~0,v^~A~}" ('((0 1)(1 2)(nil 3)(2 4))) "24")
   "134")  
180    
181  (deftest format.^.\:{.22  (def-format-test format.^.\:{.21
182    (format nil "~:{~1,1,1^~A~}" '((1)(2 3)(4 5 6)(7 8 9 0)))    "~:{~1,v^~A~}" ('((0 1)(1 2)(nil 3)(2 4))) "134")
   "")  
183    
184  (deftest format.^.\:{.23  (def-format-test format.^.\:{.22
185    (format nil "~:{~1,2,3^~A~}" '((1)(2 3)(4 5 6)(7 8 9 0)))    "~:{~1,1,1^~A~}" ('((1)(2 3)(4 5 6)(7 8 9 0))) "")
   "")  
186    
187  (deftest format.^.\:{.24  (def-format-test format.^.\:{.23
188    (format nil "~:{~1,2,1^~A~}" '((1)(2 3)(4 5 6)(7 8 9 0)))    "~:{~1,2,3^~A~}" ('((1)(2 3)(4 5 6)(7 8 9 0))) "")
   "1247")  
189    
190  (deftest format.^.\:{.25  (def-format-test format.^.\:{.24
191    (format nil "~:{~1,0,1^~A~}" '((1)(2 3)(4 5 6)(7 8 9 0)))    "~:{~1,2,1^~A~}" ('((1)(2 3)(4 5 6)(7 8 9 0))) "1247")
   "1247")  
192    
193  (deftest format.^.\:{.26  (def-format-test format.^.\:{.25
194    (format nil "~:{~3,2,1^~A~}" '((1)(2 3)(4 5 6)(7 8 9 0)))    "~:{~1,0,1^~A~}" ('((1)(2 3)(4 5 6)(7 8 9 0))) "1247")
   "1247")  
195    
196  (deftest format.^.\:{.27  (def-format-test format.^.\:{.26
197    (format nil "~:{~v,2,3^~A~}" '((1 10)(2 20)(3 30)(4 40)))    "~:{~3,2,1^~A~}" ('((1)(2 3)(4 5 6)(7 8 9 0))) "1247")
   "3040")  
198    
199  (deftest format.^.\:{.28  (def-format-test format.^.\:{.27
200    (format nil "~:{~1,v,3^~A~}" '((0 7)(1 10)(2 20)(3 30)(4 40)))    "~:{~v,2,3^~A~}" ('((1 10)(2 20)(3 30)(4 40))) "3040")
   "740")  
201    
202  (deftest format.^.\:{.29  (def-format-test format.^.\:{.28
203    (format nil "~:{~1,2,v^~A~}" '((0 0)(1 10)(2 20)(3 30)(4 40)(0 50)))    "~:{~1,v,3^~A~}" ('((0 7)(1 10)(2 20)(3 30)(4 40))) "740")
   "01050")  
204    
205  (deftest format.^.\:{.30  (def-format-test format.^.\:{.29
206    (format nil "~:{~1,2,v^~A~}" '((nil 0)))    "~:{~1,2,v^~A~}" ('((0 0)(1 10)(2 20)(3 30)(4 40)(0 50))) "01050")
   "0")  
207    
208  (deftest format.^.\:{.31  (def-format-test format.^.\:{.30
209    (format nil "~:{~#,3,3^~A~}" '((1) (2 1) (3 2 1) (4 3 2 1) (5 4 3 2 1)))    "~:{~1,2,v^~A~}" ('((nil 0))) "0")
   "45")  
210    
211  (deftest format.^.\:{.32  (def-format-test format.^.\:{.31
212    (format nil "~:{~2,#,3^~A~}" '((1) (2 1) (3 2 1) (4 3 2 1) (5 4 3 2 1)))    "~:{~#,3,3^~A~}" ('((1) (2 1) (3 2 1) (4 3 2 1) (5 4 3 2 1))) "45")
   "145")  
213    
214  (deftest format.^.\:{.33  (def-format-test format.^.\:{.32
215    (format nil "~:{~0,3,#^~A~}" '((1) (2 1) (3 2 1) (4 3 2 1) (5 4 3 2 1)))    "~:{~2,#,3^~A~}" ('((1) (2 1) (3 2 1) (4 3 2 1) (5 4 3 2 1))) "145")
   "12")  
216    
217  (deftest format.^.\:{.34  (def-format-test format.^.\:{.33
218    (format nil "~:{~#,#,3^~A~}" '((1) (2 1) (3 2 1) (4 3 2 1) (5 4 3 2 1)))    "~:{~0,3,#^~A~}" ('((1) (2 1) (3 2 1) (4 3 2 1) (5 4 3 2 1))) "12")
   "45")  
219    
220  (deftest format.^.\:{.35  (def-format-test format.^.\:{.34
221    (format nil "~:{~3,#,#^~A~}" '((1) (2 1) (3 2 1) (4 3 2 1) (5 4 3 2 1)))    "~:{~#,#,3^~A~}" ('((1) (2 1) (3 2 1) (4 3 2 1) (5 4 3 2 1))) "45")
   "12")  
222    
223  (deftest format.^.\:{.36  (def-format-test format.^.\:{.35
224    (format nil "~:{~#,3,#^~A~}" '((1) (2 1) (3 2 1) (4 3 2 1) (5 4 3 2 1)))    "~:{~3,#,#^~A~}" ('((1) (2 1) (3 2 1) (4 3 2 1) (5 4 3 2 1))) "12")
   "1245")  
225    
226  (deftest format.^.\:{.37  (def-format-test format.^.\:{.36
227    (format nil "~:{~#,#,#^~A~}" '((1) (2 1) (3 2 1) (4 3 2 1) (5 4 3 2 1)))    "~:{~#,3,#^~A~}" ('((1) (2 1) (3 2 1) (4 3 2 1) (5 4 3 2 1))) "1245")
228    "")  
229    (def-format-test format.^.\:{.37
230      "~:{~#,#,#^~A~}" ('((1) (2 1) (3 2 1) (4 3 2 1) (5 4 3 2 1))) "")
231    
232  (deftest format.^.\:{.38  (def-format-test format.^.\:{.38
233    (format nil "~:{~1,v,v^~A~}" '((#\a nil 0)))    "~:{~1,v,v^~A~}" ('((#\a nil 0))) "0")
   "0")  
234    
235  (deftest format.^.\:{.39  (def-format-test format.^.\:{.39
236    (format nil "~:{~v,1,v^~A~}" '((#\a nil 0)))    "~:{~v,1,v^~A~}" ('((#\a nil 0))) "0")
   "0")  
237    
238  ;;; Tests of ~^ inside ~@{ ... ~}  ;;; Tests of ~^ inside ~@{ ... ~}
239    
240  (deftest format.^.@{.1  (def-format-test format.^.@{.1
241    (format nil "~@{X ~A~^ Y ~A~^ ~}" 1 2 3 4 5)    "~@{X ~A~^ Y ~A~^ ~}" (1 2 3 4 5) "X 1 Y 2 X 3 Y 4 X 5")
   "X 1 Y 2 X 3 Y 4 X 5")  
   
 (deftest format.^.@{.2  
   (format nil "~@{X ~A~^ Y ~A~^ ~}" 1 2 3 4)  
   "X 1 Y 2 X 3 Y 4")  
242    
243  (deftest format.^.@{.3  (def-format-test format.^.@{.2
244    (format nil "~1@{~A~^~A~}" 1)    "~@{X ~A~^ Y ~A~^ ~}" (1 2 3 4) "X 1 Y 2 X 3 Y 4")
   "1")  
245    
246  (deftest format.^.@{.4  (def-format-test format.^.@{.3
247    (format nil "~0@{~A~^~A~}" 1)    "~1@{~A~^~A~}" (1) "1")
   "")  
248    
249  (deftest format.^.@{.5  (def-format-test format.^.@{.4
250    (format nil "~1@{~A~^~A~}" 1 2 3)    "~0@{~A~^~A~}" (1) "")
   "12")  
251    
252  (deftest format.^.@{.6  (def-format-test format.^.@{.5
253    (format nil "~@{~A~A~0^~A~}" 1 2 3 4 5 6)    "~1@{~A~^~A~}" (1 2 3) "12")
   "12")  
254    
255  (deftest format.^.@{.7  (def-format-test format.^.@{.6
256    (format nil "~@{~A~A~v^~A~}" 1 2 3 4 5 6 0 7 8 9 10 11 12)    "~@{~A~A~0^~A~}" (1 2 3 4 5 6) "12")
   "12456")  
257    
258  (deftest format.^.@{.8  (def-format-test format.^.@{.7
259    (format nil "~@{~#,3^~A~}" 1 2 3 4 5 6 7 8 9 10)    "~@{~A~A~v^~A~}" (1 2 3 4 5 6 0 7 8 9 10 11 12) "12456")
   "1234567")  
260    
261  (deftest format.^.@{.9  (def-format-test format.^.@{.8
262    (format nil "~@{~2,#^~A~}X~A" 1 2 3 4 5 6 7 8 9 10)    "~@{~#,3^~A~}" (1 2 3 4 5 6 7 8 9 10) "1234567")
   "12345678X9")  
263    
264  (deftest format.^.@{.10  (def-format-test format.^.@{.9
265    (format nil "~@{~#,#^~A~}" 1 2 3 4 5 6 7 8 9 10)    "~@{~2,#^~A~}X~A" (1 2 3 4 5 6 7 8 9 10) "12345678X9")
   "")  
266    
267  (deftest format.^.@{.11  (def-format-test format.^.@{.10
268    (format nil "~@{~#,#,#^~A~}" 1 2 3 4 5 6 7 8 9 10)    "~@{~#,#^~A~}" (1 2 3 4 5 6 7 8 9 10) "")
269    "")  
270    (def-format-test format.^.@{.11
271      "~@{~#,#,#^~A~}" (1 2 3 4 5 6 7 8 9 10) "")
272    
273  (deftest format.^.@{.12  (def-format-test format.^.@{.12
274    (format nil "~@{~#,1,2^~A~}" 1 2 3 4 5 6 7 8 9 10)    "~@{~#,1,2^~A~}" (1 2 3 4 5 6 7 8 9 10) "123456789")
   "123456789")  
275    
276  (deftest format.^.@{.13  (def-format-test format.^.@{.13
277    (format nil "~@{~#,#,v^~A~}" 1 2 3 4 5 6 7 8 9 10)    "~@{~#,#,v^~A~}" (1 2 3 4 5 6 7 8 9 10) "246")
   "246")  
278    
279  (deftest format.^.@{.14  (def-format-test format.^.@{.14
280    (format nil "~@{~#,#,v^~A~}" 1 2 3 4 5 6 7 8 9 10 11)    "~@{~#,#,v^~A~}" (1 2 3 4 5 6 7 8 9 10 11) "246")
   "246")  
281    
282  (deftest format.^.@{.15  (def-format-test format.^.@{.15
283    (format nil "~@{~#,#,v^~A~}" 1 2 3 4 5 6 7 8 9 10 11 12)    "~@{~#,#,v^~A~}" (1 2 3 4 5 6 7 8 9 10 11 12) "246")
   "246")  
284    
285  (deftest format.^.@{.16  (def-format-test format.^.@{.16
286    (format nil "~@{~#,#,v^~A~}" 1 2 3 4 5 6 7 8 9 10 11 12 13)    "~@{~#,#,v^~A~}" (1 2 3 4 5 6 7 8 9 10 11 12 13) "246")
   "246")  
287    
288  (deftest format.^.@{.17  (def-format-test format.^.@{.17
289    (format nil "~@{~#,#,v^~A~}" 1 2 3 4 5 6 7 8 9 10 11 12 13 14)    "~@{~#,#,v^~A~}" (1 2 3 4 5 6 7 8 9 10 11 12 13 14) "2468")
   "2468")  
290    
291  (deftest format.^.@{.18  (def-format-test format.^.@{.18
292    (format nil "~@{~v,v^~A~}"    "~@{~v,v^~A~}"
293            (1+ most-positive-fixnum)    ((1+ most-positive-fixnum)
294            (1+ most-positive-fixnum)     (1+ most-positive-fixnum)
295            1)     1)
296    "")    "")
297    
298  (deftest format.^.@{.19  (def-format-test format.^.@{.19
299    (format nil "~@{~0,v,v^~A~}"    "~@{~0,v,v^~A~}"
300            (1+ most-positive-fixnum)    ((1+ most-positive-fixnum)
301            (1+ most-positive-fixnum)     (1+ most-positive-fixnum)
302            1)     1)
303    "")    "")
304    
305  (deftest format.^.@{.20  (def-format-test format.^.@{.20
306    (format nil "~@{~0,v,v^~A~}"    "~@{~0,v,v^~A~}"
307            (1+ most-positive-fixnum)    ((1+ most-positive-fixnum)
308            most-positive-fixnum     most-positive-fixnum
309            1)     1)
310    "1")    "1")
311    
312  (deftest format.^.@{.21  (def-format-test format.^.@{.21
313    (format nil "~@{~1,v^~A~}" nil 8 nil 7 0 6 1 5)    "~@{~1,v^~A~}" (nil 8 nil 7 0 6 1 5) "876")
   "876")  
   
 (deftest format.^.@{.22  
   (format nil "~@{~0,v^~A~}" 3 8 1 7 3 6 nil 5)  
   "876")  
314    
315  (deftest format.^.@{.23  (def-format-test format.^.@{.22
316    (format nil "~@{~1,2,v^~A~}" 0 1 0 2 0 3 3 4)    "~@{~0,v^~A~}" (3 8 1 7 3 6 nil 5) "876")
   "123")  
317    
318  (deftest format.^.@{.24  (def-format-test format.^.@{.23
319    (format nil "~@{~1,2,v^~A~}" 0 1 0 2 0 3 nil 4)    "~@{~1,2,v^~A~}" (0 1 0 2 0 3 3 4) "123")
   "1234")  
320    
321  (deftest format.^.@{.25  (def-format-test format.^.@{.24
322    (format nil "~@{~1,1,v^~A~}" 0 1 0 2 0 3 nil 4)    "~@{~1,2,v^~A~}" (0 1 0 2 0 3 nil 4) "1234")
   "123")  
323    
324  (deftest format.^.@{.26  (def-format-test format.^.@{.25
325    (format nil "~@{~'X^~A~}" 1 2 3)    "~@{~1,1,v^~A~}" (0 1 0 2 0 3 nil 4) "123")
   "123")  
326    
327  (deftest format.^.@{.27  (def-format-test format.^.@{.26
328    (format nil "~@{~v,'X^~A~}" 0 1 #\x 2 nil 3 #\X 4 0 5)    "~@{~'X^~A~}" (1 2 3) "123")
   "123")  
329    
330  (deftest format.^.@{.28  (def-format-test format.^.@{.27
331    (format nil "~@{~'X,v^~A~}" 0 1 #\x 2 nil 3 #\X 4 0 5)    "~@{~v,'X^~A~}" (0 1 #\x 2 nil 3 #\X 4 0 5) "123")
   "123")  
332    
333  (deftest format.^.@{.29  (def-format-test format.^.@{.28
334    (format nil "~@{~v,v^~A~}" 0 2 1 #\x #\X 2 5 #\X 3 #\y #\y 4 1 2 5)    "~@{~'X,v^~A~}" (0 1 #\x 2 nil 3 #\X 4 0 5) "123")
   "123")  
335    
336  (deftest format.^.@{.30  (def-format-test format.^.@{.29
337    (format nil "~@{~',,',^~A~}" 1 2 3)    "~@{~v,v^~A~}" (0 2 1 #\x #\X 2 5 #\X 3 #\y #\y 4 1 2 5) "123")
   "")  
338    
339  (deftest format.^.@{.31  (def-format-test format.^.@{.30
340    (format nil "~@{~1,v,v^~A~}" #\a nil 0)    "~@{~',,',^~A~}" (1 2 3) "")
   "0")  
341    
342  (deftest format.^.@{.32  (def-format-test format.^.@{.31
343    (format nil "~@{~v,1,v^~A~}" #\a nil 0)    "~@{~1,v,v^~A~}" (#\a nil 0) "0")
   "0")  
344    
345  (deftest format.^.@{.33  (def-format-test format.^.@{.32
346    (format nil "~@{~v,v,v^~A~}" #\a #\a nil 0)    "~@{~v,1,v^~A~}" (#\a nil 0) "0")
347    "")  
348    (def-format-test format.^.@{.33
349      "~@{~v,v,v^~A~}" (#\a #\a nil 0) "")
350    
351  ;;; Inside ~:@{  ;;; Inside ~:@{
352    
353  (deftest format.^.\:@{.1  (def-format-test format.^.\:@{.1
354    (format nil "~:@{~A~^~A~A~}" '(1) '(2 3 4) '(5 6 7 8))    "~:@{~A~^~A~A~}" ('(1) '(2 3 4) '(5 6 7 8)) "1234567")
   "1234567")  
355    
356  (deftest format.^.\:@{.2  (def-format-test format.^.\:@{.2
357    (format nil "~@:{~A~0^~A~A~}" '(1) '(2 3 4) '(5 6 7 8))    "~@:{~A~0^~A~A~}" ('(1) '(2 3 4) '(5 6 7 8)) "125")
   "125")  
358    
359  (deftest format.^.\:@{.3  (def-format-test format.^.\:@{.3
360    (format nil "~:@{~#^~A~}" '(1) '(2 3 4) () '(5 6 7 8) ())    "~:@{~#^~A~}" ('(1) '(2 3 4) () '(5 6 7 8) ()) "125")
   "125")  
361    
362  (deftest format.^.\:@{.4  (def-format-test format.^.\:@{.4
363    (format nil "~@:{~#^~A~#^~A~#^~A~#^~A~}" '(1) '(2 3 4) () '(5 6 7 8) ())    "~@:{~#^~A~#^~A~#^~A~#^~A~}" ('(1) '(2 3 4) () '(5 6 7 8) ()) "12345678")
   "12345678")  
364    
365  (deftest format.^.\:@{.5  (def-format-test format.^.\:@{.5
366    (format nil "~:@{~v^~A~}" '(1 2 3) '(0) '(2 4) '(0 5) '(1 6 7 8))    "~:@{~v^~A~}" ('(1 2 3) '(0) '(2 4) '(0 5) '(1 6 7 8)) "246")
   "246")  
367    
368  (deftest format.^.\:@{.6  (def-format-test format.^.\:@{.6
369    (format nil "~:@{~v^~A~}" '(nil) '(nil 1) '(1 2))    "~:@{~v^~A~}" ('(nil) '(nil 1) '(1 2)) "12")
   "12")  
370    
371  (deftest format.^.\:@{.7  (def-format-test format.^.\:@{.7
372    (format nil "~:@{~v^~A~}" '(#\x 1) '(#\y 2) '(0 3) '(1 4))    "~:@{~v^~A~}" ('(#\x 1) '(#\y 2) '(0 3) '(1 4)) "124")
   "124")  
373    
374  (deftest format.^.\:@{.8  (def-format-test format.^.\:@{.8
375    (format nil "~:@{~v,3^~A~}" '(1 1) '(2 0) '(3 4) '(5 6))    "~:@{~v,3^~A~}" ('(1 1) '(2 0) '(3 4) '(5 6)) "106")
   "106")  
376    
377  (deftest format.^.\:@{.9  (def-format-test format.^.\:@{.9
378    (format nil "~@:{~3,v^~A~}" '(1 1) '(2 0) '(3 4) '(5 6))    "~@:{~3,v^~A~}" ('(1 1) '(2 0) '(3 4) '(5 6)) "106")
   "106")  
379    
380  (deftest format.^.\:@{.10  (def-format-test format.^.\:@{.10
381    (format nil "~:@{~v,3^~A~}" '(#\x 1))    "~:@{~v,3^~A~}" ('(#\x 1)) "1")
   "1")  
382    
383  (deftest format.^.\:@{.11  (def-format-test format.^.\:@{.11
384    (format nil "~:@{~2,v^~A~}" '(#\x 1))    "~:@{~2,v^~A~}" ('(#\x 1)) "1")
   "1")  
385    
386  (deftest format.^.\:@{.12  (def-format-test format.^.\:@{.12
387    (format nil "~:@{~v,v^~A~}" '(1 2 0) '(0 1 1) '(1 0 2) '(3 3 5) '(4 5 6))    "~:@{~v,v^~A~}" ('(1 2 0) '(0 1 1) '(1 0 2) '(3 3 5) '(4 5 6)) "0126")
   "0126")  
   
 (deftest format.^.\:@{.13  
   (format nil "~:@{~v,v^~A~}" '(1 2 0) '(#\a #\A 1) '(#\A #\A 2) '(1 2 3))  
   "013")  
388    
389  (deftest format.^.\:@{.14  (def-format-test format.^.\:@{.13
390    (format nil "~:@{~'x,3^~A~}" '(1))    "~:@{~v,v^~A~}" ('(1 2 0) '(#\a #\A 1) '(#\A #\A 2) '(1 2 3)) "013")
   "1")  
391    
392  (deftest format.^.\:@{.15  (def-format-test format.^.\:@{.14
393    (format nil "~:@{~3,'x^~A~}" '(1))    "~:@{~'x,3^~A~}" ('(1)) "1")
   "1")  
394    
395  (deftest format.^.\:@{.16  (def-format-test format.^.\:@{.15
396    (format nil "~:@{~'x,'x^~A~}" '(1))    "~:@{~3,'x^~A~}" ('(1)) "1")
   "")  
397    
398  (deftest format.^.\:@{.17  (def-format-test format.^.\:@{.16
399    (format nil "~:@{~#,1^~A~}" '(1) '(2 10) '(3 a b) '(4) '(5 x) '(6) '(7 8))    "~:@{~'x,'x^~A~}" ('(1)) "")
   "2357")  
400    
401  (deftest format.^.\:@{.18  (def-format-test format.^.\:@{.17
402    (format nil "~:@{~1,#^~A~}" '(1) '(2 10) '(3 a b) '(4) '(5 x) '(6) '(7 8))    "~:@{~#,1^~A~}" ('(1) '(2 10) '(3 a b) '(4) '(5 x) '(6) '(7 8)) "2357")
   "2357")  
403    
404  (deftest format.^.\:@{.19  (def-format-test format.^.\:@{.18
405    (format nil "~:@{~#,#^~A~}" '(1) '() '(2 10) '(3 a b) '(4) '(5 x) '(6) '(7 8))    "~:@{~1,#^~A~}" ('(1) '(2 10) '(3 a b) '(4) '(5 x) '(6) '(7 8)) "2357")
   "")  
406    
407  (deftest format.^.\:@{.20  (def-format-test format.^.\:@{.19
408    (format nil "~:@{~0,v^~A~}" '(0 1) '(1 2) '(nil 3) '(2 4))    "~:@{~#,#^~A~}" ('(1) '() '(2 10) '(3 a b) '(4) '(5 x) '(6) '(7 8)) "")
   "24")  
409    
410   (deftest format.^.\:@{.21  (def-format-test format.^.\:@{.20
411    (format nil "~:@{~1,v^~A~}" '(0 1) '(1 2) '(nil 3) '(2 4))    "~:@{~0,v^~A~}" ('(0 1) '(1 2) '(nil 3) '(2 4)) "24")
   "134")  
412    
413   (deftest format.^.\:@{.22  (def-format-test format.^.\:@{.21
414    (format nil "~:@{~1,1,1^~A~}" '(1) '(2 3) '(4 5 6) '(7 8 9 0))    "~:@{~1,v^~A~}" ('(0 1) '(1 2) '(nil 3) '(2 4)) "134")
   "")  
415    
416  (deftest format.^.\:@{.23  (def-format-test format.^.\:@{.22
417    (format nil "~:@{~1,2,3^~A~}" '(1) '(2 3) '(4 5 6) '(7 8 9 0))    "~:@{~1,1,1^~A~}" ('(1) '(2 3) '(4 5 6) '(7 8 9 0)) "")
   "")  
418    
419  (deftest format.^.\:@{.24  (def-format-test format.^.\:@{.23
420    (format nil "~:@{~1,2,1^~A~}" '(1) '(2 3) '(4 5 6) '(7 8 9 0))    "~:@{~1,2,3^~A~}" ('(1) '(2 3) '(4 5 6) '(7 8 9 0)) "")
   "1247")  
421    
422  (deftest format.^.\:@{.25  (def-format-test format.^.\:@{.24
423    (format nil "~:@{~1,0,1^~A~}" '(1) '(2 3) '(4 5 6) '(7 8 9 0))    "~:@{~1,2,1^~A~}" ('(1) '(2 3) '(4 5 6) '(7 8 9 0)) "1247")
   "1247")  
424    
425  (deftest format.^.\:@{.26  (def-format-test format.^.\:@{.25
426    (format nil "~:@{~3,2,1^~A~}" '(1) '(2 3) '(4 5 6) '(7 8 9 0))    "~:@{~1,0,1^~A~}" ('(1) '(2 3) '(4 5 6) '(7 8 9 0)) "1247")
   "1247")  
427    
428  (deftest format.^.\:@{.27  (def-format-test format.^.\:@{.26
429    (format nil "~:@{~v,2,3^~A~}" '(1 10) '(2 20) '(3 30) '(4 40))    "~:@{~3,2,1^~A~}" ('(1) '(2 3) '(4 5 6) '(7 8 9 0)) "1247")
   "3040")  
430    
431  (deftest format.^.\:@{.28  (def-format-test format.^.\:@{.27
432    (format nil "~:@{~1,v,3^~A~}" '(0 7) '(1 10) '(2 20) '(3 30) '(4 40))    "~:@{~v,2,3^~A~}" ('(1 10) '(2 20) '(3 30) '(4 40)) "3040")
   "740")  
433    
434  (deftest format.^.\:@{.29  (def-format-test format.^.\:@{.28
435    (format nil "~:@{~1,2,v^~A~}" '(0 0) '(1 10) '(2 20) '(3 30) '(4 40) '(0 50))    "~:@{~1,v,3^~A~}" ('(0 7) '(1 10) '(2 20) '(3 30) '(4 40)) "740")
436    
437    (def-format-test format.^.\:@{.29
438      "~:@{~1,2,v^~A~}" ('(0 0) '(1 10) '(2 20) '(3 30) '(4 40) '(0 50))
439    "01050")    "01050")
440    
441  (deftest format.^.\:@{.30  (def-format-test format.^.\:@{.30
442    (format nil "~:@{~1,2,v^~A~}" '(nil 0))    "~:@{~1,2,v^~A~}" ('(nil 0)) "0")
   "0")  
443    
444  (deftest format.^.\:@{.31  (def-format-test format.^.\:@{.31
445    (format nil "~:@{~#,3,3^~A~}" '(1) '(2 1) '(3 2 1) '(4 3 2 1) '(5 4 3 2 1))    "~:@{~#,3,3^~A~}" ('(1) '(2 1) '(3 2 1) '(4 3 2 1) '(5 4 3 2 1)) "45")
   "45")  
446    
447  (deftest format.^.\:@{.32  (def-format-test format.^.\:@{.32
448    (format nil "~:@{~2,#,3^~A~}" '(1) '(2 1) '(3 2 1) '(4 3 2 1) '(5 4 3 2 1))    "~:@{~2,#,3^~A~}" ('(1) '(2 1) '(3 2 1) '(4 3 2 1) '(5 4 3 2 1)) "145")
   "145")  
449    
450  (deftest format.^.\:@{.33  (def-format-test format.^.\:@{.33
451    (format nil "~:@{~0,3,#^~A~}" '(1) '(2 1) '(3 2 1) '(4 3 2 1) '(5 4 3 2 1))    "~:@{~0,3,#^~A~}" ('(1) '(2 1) '(3 2 1) '(4 3 2 1) '(5 4 3 2 1)) "12")
   "12")  
452    
453  (deftest format.^.\:@{.34  (def-format-test format.^.\:@{.34
454    (format nil "~:@{~#,#,3^~A~}" '(1) '(2 1) '(3 2 1) '(4 3 2 1) '(5 4 3 2 1))    "~:@{~#,#,3^~A~}" ('(1) '(2 1) '(3 2 1) '(4 3 2 1) '(5 4 3 2 1)) "45")
   "45")  
455    
456  (deftest format.^.\:@{.35  (def-format-test format.^.\:@{.35
457    (format nil "~:@{~3,#,#^~A~}" '(1) '(2 1) '(3 2 1) '(4 3 2 1) '(5 4 3 2 1))    "~:@{~3,#,#^~A~}" ('(1) '(2 1) '(3 2 1) '(4 3 2 1) '(5 4 3 2 1)) "12")
   "12")  
458    
459  (deftest format.^.\:@{.36  (def-format-test format.^.\:@{.36
460    (format nil "~:@{~#,3,#^~A~}" '(1) '(2 1) '(3 2 1) '(4 3 2 1) '(5 4 3 2 1))    "~:@{~#,3,#^~A~}" ('(1) '(2 1) '(3 2 1) '(4 3 2 1) '(5 4 3 2 1)) "1245")
   "1245")  
461    
462  (deftest format.^.\:@{.37  (def-format-test format.^.\:@{.37
463    (format nil "~:@{~#,#,#^~A~}" '(1) '(2 1) '(3 2 1) '(4 3 2 1) '(5 4 3 2 1))    "~:@{~#,#,#^~A~}" ('(1) '(2 1) '(3 2 1) '(4 3 2 1) '(5 4 3 2 1)) "")
   "")  
464    
465  (deftest format.^.\:@{.38  (def-format-test format.^.\:@{.38
466    (format nil "~:@{~1,v,v^~A~}" '(#\a nil 0))    "~:@{~1,v,v^~A~}" ('(#\a nil 0)) "0")
   "0")  
467    
468  (deftest format.^.\:@{.39  (def-format-test format.^.\:@{.39
469    (format nil "~:@{~v,1,v^~A~}" '(#\a nil 0))    "~:@{~v,1,v^~A~}" ('(#\a nil 0)) "0")
   "0")  
470    
471  ;;; ~:^ in ~:{  ;;; ~:^ in ~:{
472    
473  (deftest format.\:^.\:{.1  (def-format-test format.\:^.\:{.1
474    (format nil "~:{~:^~A~}"  nil)    "~:{~:^~A~}"  (nil) "")
   "")  
475    
476  (deftest format.\:^.\:{.2  (def-format-test format.\:^.\:{.2
477    (format nil "(~:{~A~:^,~})"  '((1)(2)(3)))    "(~:{~A~:^,~})"  ('((1)(2)(3))) "(1,2,3)")
   "(1,2,3)")  
478    
479  (deftest format.\:^.\:{.3  (def-format-test format.\:^.\:{.3
480    (format nil "~:{~:^~A~}"  '((1)(2)(3)(4)))    "~:{~:^~A~}"  ('((1)(2)(3)(4))) "123")
   "123")  
481    
482  ;;; arguments  ;;; arguments
483    
484  (deftest format.\:^.\:{.4  (def-format-test format.\:^.\:{.4
485    (format nil "~:{~0:^~A~}" '((1)(2)))    "~:{~0:^~A~}" ('((1)(2))) "")
   "")  
486    
487  (deftest format.\:^.\:{.5  (def-format-test format.\:^.\:{.5
488    (format nil "~:{~1:^~A~}" '((1)(2)))    "~:{~1:^~A~}" ('((1)(2))) "12")
   "12")  
489    
490  (deftest format.\:^.\:{.6  (def-format-test format.\:^.\:{.6
491    (format nil "~:{~'X:^~A~}" '((1)(2)))    "~:{~'X:^~A~}" ('((1)(2))) "12")
   "12")  
492    
493  (deftest format.\:^.\:{.7  (def-format-test format.\:^.\:{.7
494    (format nil "~:{~v:^~A~}" '((1 8)(2 3 4)(3 1)(0)(6 7)(8 10)))    "~:{~v:^~A~}" ('((1 8)(2 3 4)(3 1)(0)(6 7)(8 10))) "831")
   "831")  
495    
496  (deftest format.\:^.\:{.8  (def-format-test format.\:^.\:{.8
497    (format nil "~:{~V:^~A~}" '((#\X 1)(0 2)))    "~:{~V:^~A~}" ('((#\X 1)(0 2))) "1")
   "1")  
498    
499  (deftest format.\:^.\:{.9  (def-format-test format.\:^.\:{.9
500    (format nil "~:{~#:^~A~}" '((1)(2)(3 4)(5 6 7)()(8 9 10)))    "~:{~#:^~A~}" ('((1)(2)(3 4)(5 6 7)()(8 9 10))) "1235")
   "1235")  
501    
502  (deftest format.\:^.\:{.10  (def-format-test format.\:^.\:{.10
503    (format nil "~:{~1,1:^~A~}" '(()(1)(2 3)))    "~:{~1,1:^~A~}" ('(()(1)(2 3))) "")
   "")  
504    
505  (deftest format.\:^.\:{.11  (def-format-test format.\:^.\:{.11
506    (format nil "~:{~0,1:^~A~}" '((1)(2 3)))    "~:{~0,1:^~A~}" ('((1)(2 3))) "12")
   "12")  
507    
508  (deftest format.\:^.\:{.12  (def-format-test format.\:^.\:{.12
509    (format nil "~:{~v,1:^~A~}" '((2 3)(4 5 6)(0 2)(1 7)(9 10)))    "~:{~v,1:^~A~}" ('((2 3)(4 5 6)(0 2)(1 7)(9 10))) "352")
   "352")  
510    
511  (deftest format.\:^.\:{.13  (def-format-test format.\:^.\:{.13
512    (format nil "~:{~1,V:^~A~}" '((2 3)(4 5 6)(0 2)(1 7)(9 10)))    "~:{~1,V:^~A~}" ('((2 3)(4 5 6)(0 2)(1 7)(9 10))) "352")
   "352")  
513    
514  (deftest format.\:^.\:{.14  (def-format-test format.\:^.\:{.14
515    (format nil "~:{~V,v:^~A~}" '((0 1 2) (1 0 3) (4 4) () (5 6 7)))    "~:{~V,v:^~A~}" ('((0 1 2) (1 0 3) (4 4) () (5 6 7))) "23")
   "23")  
516    
517  (deftest format.\:^.\:{.15  (def-format-test format.\:^.\:{.15
518    (format nil "~:{~#,1:^~A~}" '((2 3 4)(4 5)(0)(1 7)(9 10)))    "~:{~#,1:^~A~}" ('((2 3 4)(4 5)(0)(1 7)(9 10)))
519    "24")    "24")
520    
521  (deftest format.\:^.\:{.16  (def-format-test format.\:^.\:{.16
522    (format nil "~:{~1,#:^~A~}" '((2 3 4)(4 5)(0)(1 7)(9 10)))    "~:{~1,#:^~A~}" ('((2 3 4)(4 5)(0)(1 7)(9 10)))
523    "24")    "24")
524    
525  (deftest format.\:^.\:{.17  (def-format-test format.\:^.\:{.17
526    (format nil "~:{~#,#:^~A~}" '(nil))    "~:{~#,#:^~A~}" ('(nil))
527    "")    "")
528    
529  (deftest format.\:^.\:{.18  (def-format-test format.\:^.\:{.18
530    (format nil "~:{~#,#:^~A~}" '((1)))    "~:{~#,#:^~A~}" ('((1)))
531    "")    "")
532    
533  (deftest format.\:^.\:{.19  (def-format-test format.\:^.\:{.19
534    (format nil "~:{~#,v:^~A~}" '((1 2)(3 4)(2 5 6)(1)(2)))    "~:{~#,v:^~A~}" ('((1 2)(3 4)(2 5 6)(1)(2)))
535    "245")    "245")
536    
537  (deftest format.\:^.\:{.20  (def-format-test format.\:^.\:{.20
538    (format nil "~:{~V,#:^~A~}" '((0 2)(1 3 4)(1 3)()(0 7)))    "~:{~V,#:^~A~}" ('((0 2)(1 3 4)(1 3)()(0 7)))
539    "23")    "23")
540    
541  (deftest format.\:^.\:{.21  (def-format-test format.\:^.\:{.21
542    (format nil "~:{~'X,'Y:^~A~}" '((1)(2)))    "~:{~'X,'Y:^~A~}" ('((1)(2)))
543    "12")    "12")
544    
545  (deftest format.\:^.\:{.22  (def-format-test format.\:^.\:{.22
546    (format nil "~:{~'X,'X:^~A~}" '((1)(2)))    "~:{~'X,'X:^~A~}" ('((1)(2)))
547    "")    "")
548    
549  (deftest  format.\:^.\:{.23  (def-format-test  format.\:^.\:{.23
550    (format nil "~:{~1,2,3:^~A~}" '((1)(2)))    "~:{~1,2,3:^~A~}" ('((1)(2)))
551    "")    "")
552    
553  (deftest  format.\:^.\:{.24  (def-format-test  format.\:^.\:{.24
554    (format nil "~:{~1,2,1:^~A~}" '((1)(2)))    "~:{~1,2,1:^~A~}" ('((1)(2)))
555    "12")    "12")
556    
557  (deftest  format.\:^.\:{.25  (def-format-test  format.\:^.\:{.25
558    (format nil "~:{~2,1,3:^~A~}" '((1)(2)))    "~:{~2,1,3:^~A~}" ('((1)(2)))
559    "12")    "12")
560    
561  (deftest  format.\:^.\:{.26  (def-format-test  format.\:^.\:{.26
562    (format nil "~:{~1,1,v:^~A~}" '((0 4)(nil 1)(0 5)))    "~:{~1,1,v:^~A~}" ('((0 4)(nil 1)(0 5)))
563    "4")    "4")
564    
565  (deftest  format.\:^.\:{.27  (def-format-test  format.\:^.\:{.27
566    (format nil "~:{~v,2,2:^~A~}" '((3 4)(1 1)(4 5)))    "~:{~v,2,2:^~A~}" ('((3 4)(1 1)(4 5)))
567    "4")    "4")
568    
569  (deftest  format.\:^.\:{.28  (def-format-test  format.\:^.\:{.28
570    (format nil "~:{~1,v,2:^~A~}" '((0 2)(3 4)(1 1)(4 5)))    "~:{~1,v,2:^~A~}" ('((0 2)(3 4)(1 1)(4 5)))
571    "24")    "24")
572    
573  (deftest  format.\:^.\:{.29  (def-format-test  format.\:^.\:{.29
574    (format nil "~:{~V,v,3:^~A~}" '((1 4 0)(2 1 7)(4 4 8 0)(1 2 6)(9 8 0)))    "~:{~V,v,3:^~A~}" ('((1 4 0)(2 1 7)(4 4 8 0)(1 2 6)(9 8 0)))
575    "078")    "078")
576    
577  (deftest  format.\:^.\:{.30  (def-format-test  format.\:^.\:{.30
578    (format nil "~:{~v,2,v:^~A~}" '((1 1 0)(3 2 5)(2 1 6)(1 2 0)(10 11 13)))    "~:{~v,2,v:^~A~}" ('((1 1 0)(3 2 5)(2 1 6)(1 2 0)(10 11 13)))
579    "056")    "056")
580    
581  (deftest  format.\:^.\:{.31  (def-format-test  format.\:^.\:{.31
582    (format nil "~:{~2,V,v:^~A~}" '((1 1 0)(3 2 5)(2 1 6)(10 11 13)(0 1 0)))    "~:{~2,V,v:^~A~}" ('((1 1 0)(3 2 5)(2 1 6)(10 11 13)(0 1 0)))
583    "056")    "056")
584    
585  (deftest  format.\:^.\:{.32  (def-format-test  format.\:^.\:{.32
586    (format nil "~:{~v,v,V:^~A~}" '((1 2 1 0)(2 1 1 4)(2 3 1 6)(1 2 3)(0 1 0 8)))    "~:{~v,v,V:^~A~}" ('((1 2 1 0)(2 1 1 4)(2 3 1 6)(1 2 3)(0 1 0 8)))
587    "046")    "046")
588    
589  (deftest  format.\:^.\:{.33  (def-format-test  format.\:^.\:{.33
590    (format nil "~:{~#,2,2:^~A~}" '((1 2 3)(2 X X)(0 A B C D)(4 5)(5 7 8 9)))    "~:{~#,2,2:^~A~}" ('((1 2 3)(2 X X)(0 A B C D)(4 5)(5 7 8 9)))
591    "120")    "120")
592    
593  (deftest  format.\:^.\:{.34  (def-format-test  format.\:^.\:{.34
594    (format nil "~:{~2,#,3:^~A~}" '((1)(2 3 4 5)(3 4)(4 5 6 7 8)()))    "~:{~2,#,3:^~A~}" ('((1)(2 3 4 5)(3 4)(4 5 6 7 8)()))
595    "12")    "12")
596    
597  (deftest  format.\:^.\:{.35  (def-format-test  format.\:^.\:{.35
598    (format nil "~:{~1,3,#:^~A~}" '((1)(2 3)(3 4)(4 5 6)(5)))    "~:{~1,3,#:^~A~}" ('((1)(2 3)(3 4)(4 5 6)(5)))
599    "123")    "123")
600    
601  (deftest  format.\:^.\:{.36  (def-format-test  format.\:^.\:{.36
602    (format nil "~:{~#,#,2:^~A~}" '((1 2 3)(2 X X)(0 A B C D)(4 5)(5 7 8 9)))    "~:{~#,#,2:^~A~}" ('((1 2 3)(2 X X)(0 A B C D)(4 5)(5 7 8 9)))
603    "120")    "120")
604    
605  (deftest  format.\:^.\:{.37  (def-format-test  format.\:^.\:{.37
606    (format nil "~:{~3,#,#:^~A~}" '((1)(2 3)(3 4)(4 5 6)(5)))    "~:{~3,#,#:^~A~}" ('((1)(2 3)(3 4)(4 5 6)(5)))
607    "123")    "123")
608    
609  (deftest  format.\:^.\:{.38  (def-format-test  format.\:^.\:{.38
610    (format nil "~:{~#,2,#:^~A~}" '((1 2 3)(2)(0 A B C D)(4 5)(5 7 8 9)))    "~:{~#,2,#:^~A~}" ('((1 2 3)(2)(0 A B C D)(4 5)(5 7 8 9)))
611    "120")    "120")
612    
613  (deftest  format.\:^.\:{.39  (def-format-test  format.\:^.\:{.39
614    (format nil "~:{~#,#,#:^~A~}" '((1 2 3)(2)(0 A B C D)(4 5)(5 7 8 9)))    "~:{~#,#,#:^~A~}" ('((1 2 3)(2)(0 A B C D)(4 5)(5 7 8 9)))
615    "")    "")
616    
617  ;;; ~:^ in ~:@{  ;;; ~:^ in ~:@{
618    
619  (deftest format.\:^.\:@{.1  (def-format-test format.\:^.\:@{.1
620    (format nil "~:@{~:^~A~}")    "~:@{~:^~A~}" nil "")
   "")  
621    
622  (deftest format.\:^.\:@{.2  (def-format-test format.\:^.\:@{.2
623    (format nil "(~:@{~A~:^,~})" '(1) '(2) '(3))    "(~:@{~A~:^,~})" ('(1) '(2) '(3))
624    "(1,2,3)")    "(1,2,3)")
625    
626  (deftest format.\:^.\:@{.3  (def-format-test format.\:^.\:@{.3
627    (format nil "~:@{~:^~A~}" '(1) '(2) '(3) '(4))    "~:@{~:^~A~}" ('(1) '(2) '(3) '(4))
628    "123")    "123")
629    
630  (deftest format.\:^.\:@{.4  (def-format-test format.\:^.\:@{.4
631    (format nil "~:@{~0:^~A~}" '(1) '(2))    "~:@{~0:^~A~}" ('(1) '(2))
632    "")    "")
633    
634  (deftest format.\:^.\:@{.5  (def-format-test format.\:^.\:@{.5
635    (format nil "~:@{~1:^~A~}" '(1) '(2))    "~:@{~1:^~A~}" ('(1) '(2))
636    "12")    "12")
637    
638  (deftest format.\:^.\:@{.6  (def-format-test format.\:^.\:@{.6
639    (format nil "~:@{~'X:^~A~}" '(1) '(2))    "~:@{~'X:^~A~}" ('(1) '(2))
640    "12")    "12")
641    
642  (deftest format.\:^.\:@{.7  (def-format-test format.\:^.\:@{.7
643    (format nil "~:@{~v:^~A~}" '(1 8) '(2 3 4) '(3 1) '(0) '(6 7) '(8 10))    "~:@{~v:^~A~}" ('(1 8) '(2 3 4) '(3 1) '(0) '(6 7) '(8 10))
644    "831")    "831")
645    
646  (deftest format.\:^.\:@{.8  (def-format-test format.\:^.\:@{.8
647    (format nil "~:@{~V:^~A~}" '(#\X 1) '(0 2))    "~:@{~V:^~A~}" ('(#\X 1) '(0 2))
648    "1")    "1")
649    
650  (deftest format.\:^.\:@{.9  (def-format-test format.\:^.\:@{.9
651    (format nil "~:@{~#:^~A~}" '(1) '(2) '(3 4) '(5 6 7) () '(8 9 10))    "~:@{~#:^~A~}" ('(1) '(2) '(3 4) '(5 6 7) () '(8 9 10))
652    "1235")    "1235")
653    
654  (deftest format.\:^.\:@{.10  (def-format-test format.\:^.\:@{.10
655    (format nil "~:@{~1,1:^~A~}" () '(1) '(2 3))    "~:@{~1,1:^~A~}" (() '(1) '(2 3))
656    "")    "")
657    
658  (deftest format.\:^.\:@{.11  (def-format-test format.\:^.\:@{.11
659    (format nil "~:@{~0,1:^~A~}" '(1) '(2 3))    "~:@{~0,1:^~A~}" ('(1) '(2 3))
660    "12")    "12")
661    
662  (deftest format.\:^.\:@{.12  (def-format-test format.\:^.\:@{.12
663    (format nil "~:@{~v,1:^~A~}" '(2 3) '(4 5 6) '(0 2) '(1 7) '(9 10))    "~:@{~v,1:^~A~}" ('(2 3) '(4 5 6) '(0 2) '(1 7) '(9 10))
664    "352")    "352")
665    
666  (deftest format.\:^.\:@{.13  (def-format-test format.\:^.\:@{.13
667    (format nil "~:@{~1,V:^~A~}" '(2 3) '(4 5 6) '(0 2) '(1 7) '(9 10))    "~:@{~1,V:^~A~}" ('(2 3) '(4 5 6) '(0 2) '(1 7) '(9 10))
668    "352")    "352")
669    
670  (deftest format.\:^.\:@{.14  (def-format-test format.\:^.\:@{.14
671    (format nil "~:@{~V,v:^~A~}" '(0 1 2) '(1 0 3) '(4 4) () '(5 6 7))    "~:@{~V,v:^~A~}" ('(0 1 2) '(1 0 3) '(4 4) () '(5 6 7))
672    "23")    "23")
673    
674  (deftest format.\:^.\:@{.15  (def-format-test format.\:^.\:@{.15
675    (format nil "~:@{~#,1:^~A~}" '(2 3 4) '(4 5) '(0) '(1 7) '(9 10))    "~:@{~#,1:^~A~}" ('(2 3 4) '(4 5) '(0) '(1 7) '(9 10))
676    "24")    "24")
677    
678  (deftest format.\:^.\:@{.16  (def-format-test format.\:^.\:@{.16
679    (format nil "~:@{~1,#:^~A~}" '(2 3 4) '(4 5) '(0) '(1 7) '(9 10))    "~:@{~1,#:^~A~}" ('(2 3 4) '(4 5) '(0) '(1 7) '(9 10))
680    "24")    "24")
681    
682  (deftest format.\:^.\:@{.17  (def-format-test format.\:^.\:@{.17
683    (format nil "~:@{~#,#:^~A~}" nil)    "~:@{~#,#:^~A~}" (nil)
684    "")    "")
685    
686  (deftest format.\:^.\:@{.18  (def-format-test format.\:^.\:@{.18
687    (format nil "~:@{~#,#:^~A~}" '(1))    "~:@{~#,#:^~A~}" ('(1))
688    "")    "")
689    
690  (deftest format.\:^.\:@{.19  (def-format-test format.\:^.\:@{.19
691    (format nil "~:@{~#,v:^~A~}" '(1 2) '(3 4) '(2 5 6) '(1) '(2))    "~:@{~#,v:^~A~}" ('(1 2) '(3 4) '(2 5 6) '(1) '(2))
692    "245")    "245")
693    
694  (deftest format.\:^.\:@{.20  (def-format-test format.\:^.\:@{.20
695    (format nil "~:@{~V,#:^~A~}" '(0 2) '(1 3 4) '(1 3) () '(0 7))    "~:@{~V,#:^~A~}" ('(0 2) '(1 3 4) '(1 3) () '(0 7))
696    "23")    "23")
697    
698  (deftest format.\:^.\:@{.21  (def-format-test format.\:^.\:@{.21
699    (format nil "~:@{~'X,'Y:^~A~}" '(1) '(2))    "~:@{~'X,'Y:^~A~}" ('(1) '(2))
700    "12")    "12")
701    
702  (deftest format.\:^.\:@{.22  (def-format-test format.\:^.\:@{.22
703    (format nil "~:@{~'X,'X:^~A~}" '(1) '(2))    "~:@{~'X,'X:^~A~}" ('(1) '(2))
704    "")    "")
705    
706  (deftest  format.\:^.\:@{.23  (def-format-test  format.\:^.\:@{.23
707    (format nil "~:@{~1,2,3:^~A~}" '(1) '(2))    "~:@{~1,2,3:^~A~}" ('(1) '(2))
708    "")    "")
709    
710  (deftest  format.\:^.\:@{.24  (def-format-test  format.\:^.\:@{.24
711    (format nil "~:@{~1,2,1:^~A~}" '(1) '(2))    "~:@{~1,2,1:^~A~}" ('(1) '(2))
712    "12")    "12")
713    
714  (deftest  format.\:^.\:@{.25  (def-format-test  format.\:^.\:@{.25
715    (format nil "~:@{~2,1,3:^~A~}" '(1) '(2))    "~:@{~2,1,3:^~A~}" ('(1) '(2))
716    "12")    "12")
717    
718  (deftest  format.\:^.\:@{.26  (def-format-test  format.\:^.\:@{.26
719    (format nil "~:@{~1,1,v:^~A~}" '(0 4) '(nil 1) '(0 5))    "~:@{~1,1,v:^~A~}" ('(0 4) '(nil 1) '(0 5))
720    "4")    "4")
721    
722  (deftest  format.\:^.\:@{.27  (def-format-test  format.\:^.\:@{.27
723    (format nil "~:@{~v,2,2:^~A~}" '(3 4) '(1 1) '(4 5))    "~:@{~v,2,2:^~A~}" ('(3 4) '(1 1) '(4 5))
724    "4")    "4")
725    
726  (deftest  format.\:^.\:@{.28  (def-format-test  format.\:^.\:@{.28
727    (format nil "~:@{~1,v,2:^~A~}" '(0 2) '(3 4) '(1 1) '(4 5))    "~:@{~1,v,2:^~A~}" ('(0 2) '(3 4) '(1 1) '(4 5))
728    "24")    "24")
729    
730  (deftest  format.\:^.\:@{.29  (def-format-test  format.\:^.\:@{.29
731    (format nil "~:@{~V,v,3:^~A~}" '(1 4 0) '(2 1 7) '(4 4 8 0) '(1 2 6) '(9 8 0))    "~:@{~V,v,3:^~A~}" ('(1 4 0) '(2 1 7) '(4 4 8 0) '(1 2 6) '(9 8 0))
732    "078")    "078")
733    
734  (deftest  format.\:^.\:@{.30  (def-format-test  format.\:^.\:@{.30
735    (format nil "~:@{~v,2,v:^~A~}" '(1 1 0) '(3 2 5) '(2 1 6) '(1 2 0) '(10 11 13))    "~:@{~v,2,v:^~A~}" ('(1 1 0) '(3 2 5) '(2 1 6) '(1 2 0) '(10 11 13))
736    "056")    "056")
737    
738  (deftest  format.\:^.\:@{.31  (def-format-test  format.\:^.\:@{.31
739    (format nil "~:@{~2,V,v:^~A~}" '(1 1 0) '(3 2 5) '(2 1 6) '(10 11 13) '(0 1 0))    "~:@{~2,V,v:^~A~}" ('(1 1 0) '(3 2 5) '(2 1 6) '(10 11 13) '(0 1 0))
740    "056")    "056")
741    
742  (deftest  format.\:^.\:@{.32  (def-format-test  format.\:^.\:@{.32
743    (format nil "~:@{~v,v,V:^~A~}" '(1 2 1 0) '(2 1 1 4) '(2 3 1 6) '(1 2 3) '(0 1 0 8))    "~:@{~v,v,V:^~A~}" ('(1 2 1 0) '(2 1 1 4) '(2 3 1 6) '(1 2 3) '(0 1 0 8))
744    "046")    "046")
745    
746  (deftest  format.\:^.\:@{.33  (def-format-test  format.\:^.\:@{.33
747    (format nil "~:@{~#,2,2:^~A~}" '(1 2 3) '(2 X X) '(0 A B C D) '(4 5) '(5 7 8 9))    "~:@{~#,2,2:^~A~}" ('(1 2 3) '(2 X X) '(0 A B C D) '(4 5) '(5 7 8 9))
748    "120")    "120")
749    
750  (deftest  format.\:^.\:@{.34  (def-format-test  format.\:^.\:@{.34
751    (format nil "~:@{~2,#,3:^~A~}" '(1) '(2 3 4 5) '(3 4) '(4 5 6 7 8) ())    "~:@{~2,#,3:^~A~}" ('(1) '(2 3 4 5) '(3 4) '(4 5 6 7 8) ())
752    "12")    "12")
753    
754  (deftest  format.\:^.\:@{.35  (def-format-test  format.\:^.\:@{.35
755    (format nil "~:@{~1,3,#:^~A~}" '(1) '(2 3) '(3 4) '(4 5 6) '(5))    "~:@{~1,3,#:^~A~}" ('(1) '(2 3) '(3 4) '(4 5 6) '(5))
756    "123")    "123")
757    
758  (deftest  format.\:^.\:@{.36  (def-format-test  format.\:^.\:@{.36
759    (format nil "~:@{~#,#,2:^~A~}" '(1 2 3) '(2 X X) '(0 A B C D) '(4 5) '(5 7 8 9))    "~:@{~#,#,2:^~A~}" ('(1 2 3) '(2 X X) '(0 A B C D) '(4 5) '(5 7 8 9))
760    "120")    "120")
761    
762  (deftest  format.\:^.\:@{.37  (def-format-test  format.\:^.\:@{.37
763    (format nil "~:@{~3,#,#:^~A~}" '(1) '(2 3) '(3 4) '(4 5 6) '(5))    "~:@{~3,#,#:^~A~}" ('(1) '(2 3) '(3 4) '(4 5 6) '(5))
764    "123")    "123")
765    
766  (deftest  format.\:^.\:@{.38  (def-format-test  format.\:^.\:@{.38
767    (format nil "~:@{~#,2,#:^~A~}" '(1 2 3) '(2) '(0 A B C D) '(4 5) '(5 7 8 9))    "~:@{~#,2,#:^~A~}" ('(1 2 3) '(2) '(0 A B C D) '(4 5) '(5 7 8 9))
768    "120")    "120")
769    
770  (deftest  format.\:^.\:@{.39  (def-format-test  format.\:^.\:@{.39
771    (format nil "~:@{~#,#,#:^~A~}" '(1 2 3) '(2) '(0 A B C D) '(4 5) '(5 7 8 9))    "~:@{~#,#,#:^~A~}" ('(1 2 3) '(2) '(0 A B C D) '(4 5) '(5 7 8 9))
772    "")    "")
773    
774  ;;; ~^ inside ~?, ~@?  ;;; ~^ inside ~?, ~@?
775    
776  (deftest format.^.?.1  (def-format-test format.^.?.1
777    (format nil "~AY~?X~A" 1 "~A~0^~A" '(2 4) 3)    "~AY~?X~A" (1 "~A~0^~A" '(2 4) 3)
778    "1Y2X3")    "1Y2X3")
779    
780  (deftest format.^.?.2  (def-format-test format.^.?.2
781    (format nil "~AY~?X~A" 1 "~A~^~A" '(2) 3)    "~AY~?X~A" (1 "~A~^~A" '(2) 3)
782    "1Y2X3")    "1Y2X3")
783    
784  (deftest format.^.?.3  (def-format-test format.^.?.3
785    (format nil "~AY~?X~A" 1 "~A~^~A~^~A" '(2 4) 3)    "~AY~?X~A" (1 "~A~^~A~^~A" '(2 4) 3)
786    "1Y24X3")    "1Y24X3")
787    
788  (deftest format.^.?.4  (def-format-test format.^.?.4
789    (format nil "~A~?X~A" 1 "~{~^~A~}~AY~A" '((2 3) 4 5) 6)    "~A~?X~A" (1 "~{~^~A~}~AY~A" '((2 3) 4 5) 6)
790    "1234Y5X6")    "1234Y5X6")
791    
792  (deftest format.^.@?.1  (def-format-test format.^.@?.1
793    (format nil "~AY~@?X~A" 1 "~A~0^~A" 2 3 4)    "~AY~@?X~A" (1 "~A~0^~A" 2 3 4)
794    "1Y2X3")    "1Y2X3")
795    
796  (deftest format.^.@?.2  (def-format-test format.^.@?.2
797    (format nil "~A~@?X~A" 1 "~{~^~A~}~AY~A" '(2 3) 4 5 6)    "~A~@?X~A" (1 "~{~^~A~}~AY~A" '(2 3) 4 5 6)
798    "1234Y5X6")    "1234Y5X6")
799    
800  ;;; ~^ in ~[  ;;; ~^ in ~[
801    
802  (deftest format.^.\[.1  (def-format-test format.^.\[.1
803    (format nil "~{~[X~;Y~;Z~;~0^~]~}" '(0 1 2 3 4))    "~{~[X~;Y~;Z~;~0^~]~}" ('(0 1 2 3 4))
804    "XYZ")    "XYZ")
805    
806  (deftest format.^.\[.2  (def-format-test format.^.\[.2
807    (format nil "~{~[X~;Y~;Z~:;~0^~]~}" '(1 0 2 8 9 10 0))    "~{~[X~;Y~;Z~:;~0^~]~}" ('(1 0 2 8 9 10 0))
808    "YXZ")    "YXZ")
809    
810  (deftest format.^.\[.3  (def-format-test format.^.\[.3
811    (format nil "~{~[X~;Y~0^NO~;Z~;~^~]~}" '(0 1 2 3 4))    "~{~[X~;Y~0^NO~;Z~;~^~]~}" ('(0 1 2 3 4))
812    "XY")    "XY")
813    
814  ;;; ~^ in ~(  ;;; ~^ in ~(
815    
816  (deftest format.^.\(.1  (def-format-test format.^.\(.1
817    (format nil "~{~(~C~C~0^~C~)W~}" '(#\X #\Y #\Z #\A))    "~{~(~C~C~0^~C~)W~}" ('(#\X #\Y #\Z #\A))
818    "xy")    "xy")
819    
820  (deftest format.^.\:\(.1  (def-format-test format.^.\:\(.1
821    (format nil "~{~:(~C~C~0^~C~)U~}" '(#\X #\Y #\Z #\A))    "~{~:(~C~C~0^~C~)U~}" ('(#\X #\Y #\Z #\A))
822    "Xy")    "Xy")
823    
824  (deftest format.^.@\(.1  (def-format-test format.^.@\(.1
825    (format nil "~{~@(~CA ~Cb ~0^~C~)V~}" '(#\x #\y #\Z #\A))    "~{~@(~CA ~Cb ~0^~C~)V~}" ('(#\x #\y #\Z #\A))
826    "Xa yb ")    "Xa yb ")
827    
828  (deftest format.^.@\:\(.1  (def-format-test format.^.@\:\(.1
829    (format nil "~{~@:(~CA ~Cb ~0^~C~)W~}" '(#\x #\Y #\Z #\A))    "~{~@:(~CA ~Cb ~0^~C~)W~}" ('(#\x #\Y #\Z #\A))
830    "XA YB ")    "XA YB ")
831    
832    

Legend:
Removed from v.1.13  
changed lines
  Added in v.1.14

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26