From 3c76a7cf93c20e14d9bc8d6895d8f886e6e2bc44 Mon Sep 17 00:00:00 2001
From: Matthias Benkard <code@mail.matthias.benkard.de>
Date: Sun, 3 Feb 2008 09:48:25 +0100
Subject: Remove Allegro CL compatibility hack.

darcs-hash:ec11150ac1ad641a75268526fd9590a9a71da3ae
---
 Lisp/data-types.lisp | 11 -----------
 1 file changed, 11 deletions(-)

(limited to 'Lisp/data-types.lisp')

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)
-- 
cgit v1.2.3