diff options
| author | Matthias Benkard <code@mail.matthias.benkard.de> | 2008-02-03 09:48:25 +0100 |
|---|---|---|
| committer | Matthias Benkard <code@mail.matthias.benkard.de> | 2008-02-03 09:48:25 +0100 |
| commit | 3c76a7cf93c20e14d9bc8d6895d8f886e6e2bc44 (patch) | |
| tree | f824a7ee6d5eb09c0e18b1de203439fce117096f /Lisp/data-types.lisp | |
| parent | ac2957521b8d870352be375f59c4b72605f226eb (diff) | |
Remove Allegro CL compatibility hack.
darcs-hash:ec11150ac1ad641a75268526fd9590a9a71da3ae
Diffstat (limited to 'Lisp/data-types.lisp')
| -rw-r--r-- | Lisp/data-types.lisp | 11 |
1 files changed, 0 insertions, 11 deletions
diff --git a/Lisp/data-types.lisp b/Lisp/data-types.lisp index 788db5b..bd2fae4 100644 --- a/Lisp/data-types.lisp +++ b/Lisp/data-types.lisp @@ -39,17 +39,6 @@ :initform (cffi:null-pointer))))) -;; The following may be needed by some implementations (namely Allegro -;; CL), but I'm not sure. -(eval-when (:compile-toplevel :load-toplevel :execute) - (loop for class-name in '(c2mop:funcallable-standard-object - c-pointer-wrapper) - for class = (find-class class-name nil) - when class - unless (c2mop:class-finalized-p class) - do (c2mop:finalize-inheritance class))) - - ;; 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) |