26 |
nil) |
nil) |
27 |
|
|
28 |
(deftest make-condition.3 |
(deftest make-condition.3 |
29 |
|
(:notes :make-condition-with-compound-name :ansi-spec-problem) |
30 |
(let* ((tp '(or program-error type-error)) |
(let* ((tp '(or program-error type-error)) |
31 |
(c (make-condition tp))) |
(c (make-condition tp))) |
32 |
(or (not (and (subtypep tp 'condition) |
(or (not (and (subtypep tp 'condition) |
36 |
t) |
t) |
37 |
|
|
38 |
(deftest make-condition.4 |
(deftest make-condition.4 |
39 |
|
(:notes :make-condition-with-compound-name :ansi-spec-problem) |
40 |
(let* ((tp '(and simple-error type-error)) |
(let* ((tp '(and simple-error type-error)) |
41 |
(c (make-condition tp))) |
(c (make-condition tp))) |
42 |
(or (not (and (subtypep 'simple-error tp) |
(or (not (and (subtypep 'simple-error tp) |