mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-04 16:30:48 -08:00
Code Issues Projects Releases Packages Wiki Activity

The fake version of CLASSP is only needed when booting.

Browse source
This commit is contained in:
jjgarcia 2003-05-03 17:21:33 +00:00
parent 35040b43ef
commit 7df2ec7c01
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
src/lsp/predlib.lsp
View file

@ -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)