mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-14 21:32:49 -08:00
Code Issues Projects Releases Packages Wiki Activity

Do not redefine ENSURE-CLASS unless cross-porting ECL

Browse source
This commit is contained in:
jjgarcia 2004-03-25 09:00:04 +00:00
parent 72dc89f61b
commit a20347e85c
1 changed files with 1 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

1
src/clos/defclass.lsp
View file

@ -109,6 +109,7 @@
(when name (setf (find-class name) new-class))
new-class))
#+cross
(eval-when (compile)
(defun ensure-class (name &rest initargs)
(warn "Ignoring definition for class ~S" name)))