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 |
|
|