From 70ea7c294b36ea15c1d6e87caa5654767345d60c Mon Sep 17 00:00:00 2001
From: pfdietz <pfdietz@localhost>
Date: Fri, 21 Feb 2003 04:26:16 +0000
Subject: [PATCH] Fixed problem in SATIFIES type specifiers.

---
 ansi-tests/subtypep-member.lsp | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/ansi-tests/subtypep-member.lsp b/ansi-tests/subtypep-member.lsp
index 420059cf..110568fb 100644
--- a/ansi-tests/subtypep-member.lsp
+++ b/ansi-tests/subtypep-member.lsp
@@ -139,7 +139,7 @@
   nil)
 
 (deftest subtypep.member.27
-  (check-all-subtypep '(member a b c d) '(satisfies #'symbolp))
+  (check-all-subtypep '(member a b c d) '(satisfies symbolp))
   nil)
 
 (deftest subtypep.member.28
@@ -147,11 +147,11 @@
   nil)
 
 (deftest subtypep.member.29
-  (check-all-not-subtypep '(member a b 10 z) '(satisfies #'symbolp))
+  (check-all-not-subtypep '(member a b 10 z) '(satisfies symbolp))
   nil)
 
 (deftest subtypep.member.30
-  (check-disjointness '(member 1 6 10) '(satisfies #'symbolp))
+  (check-disjointness '(member 1 6 10) '(satisfies symbolp))
   nil)
 
 (deftest subtypep.member.31
-- 
GitLab