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

Fix TYPE=.

parent 4b62d007
No related branches found
No related tags found
No related merge requests found
Pipeline #9304 failed
......@@ -130,8 +130,9 @@ types are not equivalent."
(values nil ok))
(t
(multiple-value-bind (sub ok) (subtypep type2 type1)
(declare (ignore sub))
(values nil ok))))))
(if sub
(values nil nil)
(values nil ok)))))))
(define-modify-macro coercef (type-spec) coerce
"Modify-macro for COERCE.")
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