From b36e4e6b194531e02dd55bb239087a50392e40db Mon Sep 17 00:00:00 2001 From: Matthias Benkard Date: Mon, 11 Feb 2008 17:49:55 +0100 Subject: Make Objective-CL compile on CLISP. darcs-hash:86258aba4b9bc787c781a5b0b601f5d0378c7764 --- Lisp/data-types.lisp | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) (limited to 'Lisp/data-types.lisp') 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) -- cgit v1.2.3