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

Add a test case on which TYPE= is broken.

parent 204637ff
No related branches found
No related tags found
No related merge requests found
......@@ -1804,6 +1804,16 @@
nil
t)
(defun type=.6.stringp (thing)
(not (not (stringp thing))))
(deftest type=.6
(multiple-value-bind (= ok)
(type= '(or string (satisfies type=.6.stringp)) 'string)
(or (and = ok)
(and (not =) (not ok))))
t)
(macrolet
((test (type numbers)
`(deftest ,(format-symbol t '#:cdr5.~a (string type))
......
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