summaryrefslogtreecommitdiff
path: root/Lisp
diff options
context:
space:
mode:
authorMatthias Benkard <code@mail.matthias.benkard.de>2008-02-11 17:49:55 +0100
committerMatthias Benkard <code@mail.matthias.benkard.de>2008-02-11 17:49:55 +0100
commitb36e4e6b194531e02dd55bb239087a50392e40db (patch)
treecd7142cfa9f709f284a1dbc440ba290276425494 /Lisp
parente75a694b028cd8f7e378929fe95dd6ca355b1051 (diff)
Make Objective-CL compile on CLISP.
darcs-hash:86258aba4b9bc787c781a5b0b601f5d0378c7764
Diffstat (limited to 'Lisp')
-rw-r--r--Lisp/data-types.lisp8
1 files changed, 5 insertions, 3 deletions
diff --git a/Lisp/data-types.lisp b/Lisp/data-types.lisp
index 36f0f2f..8ec2e49 100644
--- a/Lisp/data-types.lisp
+++ b/Lisp/data-types.lisp
@@ -63,9 +63,11 @@
;; FIXME: I'm not confident about this, but it is needed in order to
;; make (DEFCLASS SELECTOR ...) work.
-(defmethod c2mop:validate-superclass ((class c2mop:funcallable-standard-class)
- (superclass standard-class))
- t)
+(#+clisp ext:without-package-lock #+clisp (#:clos)
+ #-clisp progn
+ (defmethod c2mop:validate-superclass ((class c2mop:funcallable-standard-class)
+ (superclass standard-class))
+ t))
(defclass selector (c2mop:funcallable-standard-object c-pointer-wrapper)