Remove Allegro CL compatibility hack.

darcs-hash:ec11150ac1ad641a75268526fd9590a9a71da3ae

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)