Skip to content
Snippets Groups Projects
Commit e2358ba4 authored by pfdietz's avatar pfdietz
Browse files

Add some more guards to make-condition.[34]

parent 6fde51f3
No related branches found
No related tags found
No related merge requests found
...@@ -28,13 +28,19 @@ ...@@ -28,13 +28,19 @@
(deftest make-condition.3 (deftest make-condition.3
(let* ((tp '(or program-error type-error)) (let* ((tp '(or program-error type-error))
(c (make-condition tp))) (c (make-condition tp)))
(notnot-mv (typep c tp))) (or (not (and (subtypep tp condition)
(or (subtypep 'program-error tp)
(subtypep 'type-error tp))))
(notnot-mv (typep c tp))))
t) t)
(deftest make-condition.4 (deftest make-condition.4
(let* ((tp '(and simple-error type-error)) (let* ((tp '(and simple-error type-error))
(c (make-condition tp))) (c (make-condition tp)))
(notnot-mv (typep c tp))) (or (not (and (subtypep 'simple-error tp)
(subtypep 'type-error tp)
(subtypep tp 'condition)))
(notnot-mv (typep c tp))))
t) t)
;;; Error tests ;;; Error tests
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment