diff --git a/ansi-tests/integerp.lsp b/ansi-tests/integerp.lsp index 121e0b1a1a52fd91dd3df345a4e3fc211b703722..6a0c678a2a7185f74f2d01619ce8edcc8c042c14 100644 --- a/ansi-tests/integerp.lsp +++ b/ansi-tests/integerp.lsp @@ -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)