67 |
t)) |
t)) |
68 |
(deftest ,(make-def-cond-name name "HANDLER-CASE-1") |
(deftest ,(make-def-cond-name name "HANDLER-CASE-1") |
69 |
(let ((c (make-condition ',name-symbol))) |
(let ((c (make-condition ',name-symbol))) |
70 |
(handler-case (signal c) |
(handler-case (normally (signal c)) |
71 |
(,name-symbol (c1) (eqt c c1)))) |
(,name-symbol (c1) (eqt c c1)))) |
72 |
t) |
t) |
73 |
(deftest ,(make-def-cond-name name "HANDLER-CASE-2") |
(deftest ,(make-def-cond-name name "HANDLER-CASE-2") |
74 |
(let ((c (make-condition ',name-symbol))) |
(let ((c (make-condition ',name-symbol))) |
75 |
(handler-case (signal c) |
(handler-case (normally (signal c)) |
76 |
(condition (c1) (eqt c c1)))) |
(condition (c1) (eqt c c1)))) |
77 |
t) |
t) |
78 |
,@(unless (some #'(lambda (ct) (subtypep ct 'error)) parents) |
,@(unless (some #'(lambda (ct) (subtypep ct 'error)) parents) |
79 |
`((deftest ,(make-def-cond-name name "HANDLER-CASE-3") |
`((deftest ,(make-def-cond-name name "HANDLER-CASE-3") |
80 |
(let ((c (make-condition ',name-symbol))) |
(let ((c (make-condition ',name-symbol))) |
81 |
(handler-case (signal c) |
(handler-case (normally (signal c)) |
82 |
(error () nil) |
(error () nil) |
83 |
(,name-symbol (c2) (eqt c c2)))) |
(,name-symbol (c2) (eqt c c2)))) |
84 |
t))) |
t))) |
85 |
))) |
))) |
|
|
|
|
|
|
|
|
|