diff options
| author | Matthias Benkard <code@mail.matthias.benkard.de> | 2008-02-11 17:49:55 +0100 |
|---|---|---|
| committer | Matthias Benkard <code@mail.matthias.benkard.de> | 2008-02-11 17:49:55 +0100 |
| commit | b36e4e6b194531e02dd55bb239087a50392e40db (patch) | |
| tree | cd7142cfa9f709f284a1dbc440ba290276425494 /Lisp | |
| parent | e75a694b028cd8f7e378929fe95dd6ca355b1051 (diff) | |
Make Objective-CL compile on CLISP.
darcs-hash:86258aba4b9bc787c781a5b0b601f5d0378c7764
Diffstat (limited to 'Lisp')
| -rw-r--r-- | Lisp/data-types.lisp | 8 |
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) |