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

Fix overzealous tests for TYPE=.

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