56 |
(format nil "~#{~A~}" '(1 2 3 4 5 6 7) nil nil nil) |
(format nil "~#{~A~}" '(1 2 3 4 5 6 7) nil nil nil) |
57 |
"1234") |
"1234") |
58 |
|
|
|
;;; ~:{ ... ~} |
|
|
|
|
|
(deftest format.\:{.1 |
|
|
(format nil "~:{(~A ~A)~}" '((1 2 3)(4 5)(6 7 8))) |
|
|
"(1 2)(4 5)(6 7)") |
|
|
|
|
59 |
;;; Tests of ~^ inside ~{ ... ~} |
;;; Tests of ~^ inside ~{ ... ~} |
60 |
|
|
61 |
(deftest format.{.10 |
(deftest format.{.10 |
86 |
(format nil "~1{~}" "~A" '(4 5 6)) |
(format nil "~1{~}" "~A" '(4 5 6)) |
87 |
"4") |
"4") |
88 |
|
|
89 |
|
(deftest format.{.17 |
90 |
|
(format nil "~{~}" (formatter "") nil) |
91 |
|
"") |
92 |
|
|
93 |
|
(deftest format.{.18 |
94 |
|
(format nil "~1{~}" (formatter "") '(1 2 3 4)) |
95 |
|
"") |
96 |
|
|
97 |
|
(deftest format.{.19 |
98 |
|
(format nil "~{~}" (formatter "~A") '(1 2 3 4)) |
99 |
|
"1234") |
100 |
|
|
101 |
|
(deftest format.{.20 |
102 |
|
(format nil "~3{~}" (formatter "~A") '(1 2 3 4)) |
103 |
|
"123") |
104 |
|
|
105 |
|
(deftest format.{.21 |
106 |
|
(format nil "~V{~}" 2 "~A" '(1 2 3 4 5)) |
107 |
|
"12") |
108 |
|
|
109 |
|
(deftest format.{.22 |
110 |
|
(format nil "~#{~}" "~A" '(1 2 3 4 5)) |
111 |
|
"12") |
112 |
|
|
113 |
|
(deftest format.{.23 |
114 |
|
(format nil "~{FOO~:}" nil) |
115 |
|
"FOO") |
116 |
|
|
117 |
|
(deftest format.{.24 |
118 |
|
(format nil "~{~A~:}" '(1)) |
119 |
|
"1") |
120 |
|
|
121 |
|
(deftest format.{.25 |
122 |
|
(format nil "~{~A~:}" '(1 2)) |
123 |
|
"12") |
124 |
|
|
125 |
|
(deftest format.{.26 |
126 |
|
(format nil "~{~A~:}" '(1 2 3)) |
127 |
|
"123") |
128 |
|
|
129 |
|
(deftest format.{.27 |
130 |
|
(format nil "~0{FOO~:}" nil) |
131 |
|
"") |
132 |
|
|
133 |
|
(deftest format.{.28 |
134 |
|
(format nil "~V{FOO~:}" 0 nil) |
135 |
|
"") |
136 |
|
|
137 |
|
(deftest format.{.29 |
138 |
|
(format nil "~1{FOO~:}" nil) |
139 |
|
"FOO") |
140 |
|
|
141 |
|
(deftest format.{.30 |
142 |
|
(format nil "~2{FOO~:}" nil) |
143 |
|
"FOO") |
144 |
|
|
145 |
|
(deftest format.{.31 |
146 |
|
(format nil "~2{~ |
147 |
|
~:}" nil) |
148 |
|
"") |
149 |
|
|
150 |
|
(deftest format.{.32 |
151 |
|
(format nil "~2{FOO~}" nil) |
152 |
|
"") |
153 |
|
|
154 |
|
(deftest format.{.33 |
155 |
|
(format nil "~v{~a~}" nil '(1 2 3 4 5 6 7)) |
156 |
|
"1234567") |
157 |
|
|
158 |
|
;;; ~:{ ... ~} |
159 |
|
|
160 |
|
(deftest format.\:{.1 |
161 |
|
(format nil "~:{(~A ~A)~}" '((1 2 3)(4 5)(6 7 8))) |
162 |
|
"(1 2)(4 5)(6 7)") |
163 |
|
|
164 |
|
(deftest format.\:{.2 |
165 |
|
(format nil "~:{~ |
166 |
|
~}" nil) |
167 |
|
"") |
168 |
|
|
169 |
|
(deftest format.\:{.3 |
170 |
|
(format nil "~:{~}" "" nil) |
171 |
|
"") |
172 |
|
|
173 |
|
(deftest format.\:{.4 |
174 |
|
(format nil "~:{~}" "~A" nil) |
175 |
|
"") |
176 |
|
|
177 |
|
(deftest format.\:{.5 |
178 |
|
(format nil "~:{~}" "X" '(nil (1 2) (3))) |
179 |
|
"XXX") |
180 |
|
|
181 |
|
(deftest format.\:{.6 |
182 |
|
(format nil "~:{~}" (formatter "~A") '((1 2) (3) (4 5 6))) |
183 |
|
"134") |
184 |
|
|
185 |
|
(deftest format.\:{.7 |
186 |
|
(format nil "~0:{XYZ~}" '((1))) |
187 |
|
"") |
188 |
|
|
189 |
|
(deftest format.\:{.8 |
190 |
|
(format nil "~2:{XYZ~}" '((1))) |
191 |
|
"XYZ") |
192 |
|
|
193 |
|
(deftest format.\:{.9 |
194 |
|
(format nil "~2:{~A~}" '((1) (2))) |
195 |
|
"12") |
196 |
|
|
197 |
|
(deftest format.\:{.10 |
198 |
|
(format nil "~2:{~A~}" '((1 X) (2 Y) (3 Z))) |
199 |
|
"12") |
200 |
|
|
201 |
|
(deftest format.\:{.11 |
202 |
|
(loop for i from 0 to 10 collect |
203 |
|
(format nil "~v:{~A~}" i '((1) (2) (3 X) (4 Y Z) (5) (6)))) |
204 |
|
("" "1" "12" "123" "1234" "12345" |
205 |
|
"123456" "123456" "123456" "123456" "123456")) |
206 |
|
|
207 |
|
(deftest format.\:{.12 |
208 |
|
(format nil "~V:{X~}" nil '((1) (2) (3) nil (5))) |
209 |
|
"XXXXX") |
210 |
|
|
211 |
|
(deftest format.\:{.13 |
212 |
|
(format nil "~#:{~A~}" '((1) (2) (3) (4) (5)) 'foo 'bar) |
213 |
|
"123") |
214 |
|
|
215 |
|
(deftest format.\:{.14 |
216 |
|
(format nil "~:{~A~:}" '((1 X) (2 Y) (3) (4 A B))) |
217 |
|
"1234") |
218 |
|
|
219 |
|
(deftest format.\:{.15 |
220 |
|
(loop for i from 0 to 10 collect |
221 |
|
(format nil "~v:{~A~:}" i '((1 X) (2 Y) (3) (4 A B)))) |
222 |
|
("" "1" "12" "123" "1234" "1234" |
223 |
|
"1234" "1234" "1234" "1234" "1234")) |
224 |
|
|
225 |
|
(deftest format.\:{.16 |
226 |
|
(format nil "~:{ABC~:}" '(nil)) |
227 |
|
"ABC") |
228 |
|
|
229 |
|
(deftest format.\:{.17 |
230 |
|
(format nil "~v:{ABC~:}" nil '(nil)) |
231 |
|
"ABC") |
232 |
|
|
233 |
|
;;; ~^ in ~:{ ... ~:} |
234 |
|
|
235 |
|
|
236 |
|
|
268 |
"146") |
"146") |
269 |
|
|
270 |
(deftest format.@{.7 |
(deftest format.@{.7 |
271 |
(format nil "~1@{~ FOO ~}") |
(format nil "~1@{FOO~}") |
272 |
"") |
"") |
273 |
|
|
274 |
|
|