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

Added missing quote in make-condition.3

parent a1d0307a
No related branches found
No related tags found
No related merge requests found
...@@ -28,7 +28,7 @@ ...@@ -28,7 +28,7 @@
(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)))
(or (not (and (subtypep tp condition) (or (not (and (subtypep tp 'condition)
(or (subtypep 'program-error tp) (or (subtypep 'program-error tp)
(subtypep 'type-error tp)))) (subtypep 'type-error tp))))
(notnot-mv (typep c tp)))) (notnot-mv (typep c tp))))
......
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