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