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)