Skip to content
Snippets Groups Projects
Commit 204637ff authored by Alexander Fedorov's avatar Alexander Fedorov
Browse files

Fix overzealous tests for TYPE=.

parent a39308bb
No related branches found
No related tags found
No related merge requests found
...@@ -1781,14 +1781,18 @@ ...@@ -1781,14 +1781,18 @@
t) t)
(deftest type=.2 (deftest type=.2
(type= 'list '(or null cons)) (multiple-value-bind (= ok)
t (type= 'list '(or null cons))
(or (and = ok)
(and (not =) (not ok))))
t) t)
#-allegro #-allegro
(deftest type=.3 (deftest type=.3
(type= 'null '(and symbol list)) (multiple-value-bind (= ok)
t (type= 'null '(and symbol list))
(or (and = ok)
(and (not =) (not ok))))
t) t)
(deftest type=.4 (deftest type=.4
......
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