From 7df2ec7c013d19803b83027942d41dca1544da33 Mon Sep 17 00:00:00 2001
From: jjgarcia <jjgarcia>
Date: Sat, 3 May 2003 17:21:33 +0000
Subject: [PATCH] The fake version of CLASSP is only needed when booting.

---
 src/lsp/predlib.lsp | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/lsp/predlib.lsp b/src/lsp/predlib.lsp
index 465d6c4a3..b2caae387 100644
--- a/src/lsp/predlib.lsp
+++ b/src/lsp/predlib.lsp
@@ -368,7 +368,8 @@ Returns T if X belongs to TYPE; NIL otherwise."
   (or (eq low high)
       (dolist (class (sys:instance-ref low 1)) ; (class-superiors low)
 	(when (subclassp class high) (return t)))))
-#+clos
+
+#+(and clos ecl-min)
 (defun clos::classp (foo)
   (declare (ignore foo))
   nil)