From 36215d830f5762278f16d6c97e1ac7068653f366 Mon Sep 17 00:00:00 2001
From: Matthias Benkard <code@mail.matthias.benkard.de>
Date: Sun, 3 Feb 2008 10:57:11 +0100
Subject: Reintroduce Allegro CL compatibility hack.

darcs-hash:f167d79293e352583e396687af4c39c2cb597057
---
 Lisp/data-types.lisp | 11 +++++++++++
 1 file changed, 11 insertions(+)

(limited to 'Lisp')

diff --git a/Lisp/data-types.lisp b/Lisp/data-types.lisp
index a857800..64979c0 100644
--- a/Lisp/data-types.lisp
+++ b/Lisp/data-types.lisp
@@ -39,6 +39,17 @@
                  :initform (cffi:null-pointer)))))
 
 
+;; The following may be needed by some implementations (namely Allegro
+;; CL).
+(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