Commit b382fbb8 authored by pfdietz's avatar pfdietz
Browse files

Fixed problem in a coerce.1 having to do with function types.

parent acfc501c
......@@ -7,7 +7,9 @@
(deftest coerce.1
(loop for x in *universe*
count (not (eq (coerce x (type-of x)) x)))
for type = (type-of x)
unless (and (consp type) (eqt (car type) 'function))
count (not (eq (coerce x type) x)))
0)
(deftest coerce.2
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment