Commit 56927781 authored by Alexander Fedorov's avatar Alexander Fedorov
Browse files

Fix overzealous tests for TYPE=.

parent 009b7e53
Loading
Loading
Loading
Loading
+8 −4
Original line number Diff line number Diff line
@@ -1781,14 +1781,18 @@
  t)

(deftest type=.2
    (multiple-value-bind (= ok)
        (type= 'list '(or null cons))
  t
      (or (and = ok)
          (and (not =) (not ok))))
  t)

#-allegro
(deftest type=.3
    (multiple-value-bind (= ok)
        (type= 'null '(and symbol list))
  t
      (or (and = ok)
          (and (not =) (not ok))))
  t)

(deftest type=.4