From ba86bd56df706cc5113f34fc72c602666da60ce9 Mon Sep 17 00:00:00 2001
From: pfdietz <pfdietz@localhost>
Date: Sun, 26 Jun 2005 17:50:16 +0000
Subject: [PATCH] Refactor type predicate test

---
 ansi-tests/integerp.lsp | 8 +-------
 1 file changed, 1 insertion(+), 7 deletions(-)

diff --git a/ansi-tests/integerp.lsp b/ansi-tests/integerp.lsp
index 121e0b1a..6a0c678a 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)
 
 
-- 
GitLab