347 |
(signals-error (format nil "~:{~A~}" '(#(X Y Z))) type-error) |
(signals-error (format nil "~:{~A~}" '(#(X Y Z))) type-error) |
348 |
t) |
t) |
349 |
|
|
350 |
(deftest format.\:@.error.1 |
(deftest format.\:@{.error.1 |
351 |
(signals-type-error x 'x (format nil "~:@{~A~}" x)) |
(signals-type-error x 'x (format nil "~:@{~A~}" x)) |
352 |
t) |
t) |
353 |
|
|
354 |
(deftest format.\:@.error.2 |
(deftest format.\:@{.error.2 |
355 |
(signals-type-error x 0 (format nil "~:@{~A~}" x)) |
(signals-type-error x 0 (format nil "~:@{~A~}" x)) |
356 |
t) |
t) |
357 |
|
|
358 |
(deftest format.\:@.error.3 |
(deftest format.\:@{.error.3 |
359 |
(signals-type-error x #*01101 (format nil "~:@{~A~}" x)) |
(signals-type-error x #*01101 (format nil "~:@{~A~}" x)) |
360 |
t) |
t) |
361 |
|
|
362 |
(deftest format.\:@.error.4 |
(deftest format.\:@{.error.4 |
363 |
(signals-type-error x "abc" (format nil "~:@{~A~}" x)) |
(signals-type-error x "abc" (format nil "~:@{~A~}" x)) |
364 |
t) |
t) |
365 |
|
|
366 |
(deftest format.\:@.error.5 |
(deftest format.\:@{.error.5 |
367 |
(signals-error (format nil "~:@{~A ~A~}" '(x . y)) type-error) |
(signals-error (format nil "~:@{~A ~A~}" '(x . y)) type-error) |
368 |
t) |
t) |