226 |
X AAA, |
X AAA, |
227 |
X BBB, |
X BBB, |
228 |
X CCC") |
X CCC") |
229 |
|
|
230 |
|
;;; Error cases |
231 |
|
|
232 |
|
;;; See 22.3.5.2 |
233 |
|
|
234 |
|
;;; Interaction with ~W |
235 |
|
|
236 |
|
(deftest format.justify.error.w.1 |
237 |
|
(signals-error-always (format nil "~< ~W ~>" nil) error) |
238 |
|
t t) |
239 |
|
|
240 |
|
(deftest format.justify.error.w.2 |
241 |
|
(signals-error-always (format nil "~<X~:;Y~>~W" nil) error) |
242 |
|
t t) |
243 |
|
|
244 |
|
(deftest format.justify.error.w.3 |
245 |
|
(signals-error-always (format nil "~w~<X~:;Y~>" nil) error) |
246 |
|
t t) |
247 |
|
|
248 |
|
;;; Interaction with ~_ |
249 |
|
|
250 |
|
(deftest format.justify.error._.1 |
251 |
|
(signals-error-always (format nil "~< ~_ ~>") error) |
252 |
|
t t) |
253 |
|
|
254 |
|
(deftest format.justify.error._.2 |
255 |
|
(signals-error-always (format nil "~<X~:;Y~>~_") error) |
256 |
|
t t) |
257 |
|
|
258 |
|
(deftest format.justify.error._.3 |
259 |
|
(signals-error-always (format nil "~_~<X~:;Y~>") error) |
260 |
|
t t) |
261 |
|
|
262 |
|
;;; Interaction with ~I |
263 |
|
|
264 |
|
(deftest format.justify.error.i.1 |
265 |
|
(signals-error-always (format nil "~< ~i ~>") error) |
266 |
|
t t) |
267 |
|
|
268 |
|
(deftest format.justify.error.i.2 |
269 |
|
(signals-error-always (format nil "~<X~:;Y~>~I") error) |
270 |
|
t t) |
271 |
|
|
272 |
|
(deftest format.justify.error.i.3 |
273 |
|
(signals-error-always (format nil "~i~<X~:;Y~>") error) |
274 |
|
t t) |
275 |
|
|