9 |
(let ((fmt "Error")) |
(let ((fmt "Error")) |
10 |
(handler-case (error fmt) |
(handler-case (error fmt) |
11 |
(simple-error (c) |
(simple-error (c) |
12 |
(eqt (simple-condition-format-control c) |
(and |
13 |
fmt)))) |
(null (simple-condition-format-arguments c)) |
14 |
|
(eqt (simple-condition-format-control c) |
15 |
|
fmt))))) |
16 |
t) |
t) |
17 |
|
|
18 |
(deftest error.2 |
(deftest error.2 |
33 |
fmt)))) |
fmt)))) |
34 |
t) |
t) |
35 |
|
|
36 |
|
(deftest error.4 |
37 |
|
(let ((fmt "Error: ~A")) |
38 |
|
(handler-case (error fmt 10) |
39 |
|
(simple-error (c) |
40 |
|
(and |
41 |
|
(equalt |
42 |
|
(simple-condition-format-arguments c) |
43 |
|
'(10)) |
44 |
|
(eqt (simple-condition-format-control c) |
45 |
|
fmt))))) |
46 |
|
t) |
47 |
|
|
48 |
|
(deftest error.5 |
49 |
|
(let ((fmt (formatter "Error"))) |
50 |
|
(handler-case (error fmt) |
51 |
|
(simple-error (c) |
52 |
|
(and |
53 |
|
(null (simple-condition-format-arguments c)) |
54 |
|
(eqt (simple-condition-format-control c) |
55 |
|
fmt))))) |
56 |
|
t) |
57 |
|
|
58 |
|
|