Commit ba86bd56 authored by pfdietz's avatar pfdietz

Refactor type predicate test

parent b9bf5c99
......@@ -26,13 +26,7 @@
nil)
(deftest integerp.2
(loop for x in *universe*
for vals = (multiple-value-list (integerp x))
unless (and (= (length vals) 1)
(if (typep x 'integer)
(first vals)
(not (first vals))))
collect (cons x vals))
(check-type-predicate #'integerp 'integer)
nil)
......
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