[Eclipse-cvs] CVS eclipse/lib/clx-ext

[ihatchondo]

Update of /project/eclipse/cvsroot/eclipse/lib/clx-ext
In directory cl-net:/tmp/cvs-serv2064/lib/clx-ext

Modified Files:
	event.lisp 
Log Message:
Fix compilation with latest sbcl versions

--- /project/eclipse/cvsroot/eclipse/lib/clx-ext/event.lisp	2005/01/15 12:27:00	1.9
+++ /project/eclipse/cvsroot/eclipse/lib/clx-ext/event.lisp	2009/11/04 23:42:34	1.10
@@ -1,5 +1,5 @@
 ;;; -*- Mode: Lisp; Package: CLX-EXTENSIONS -*-
-;;; $Id: event.lisp,v 1.9 2005/01/15 12:27:00 ihatchondo Exp $
+;;; $Id: event.lisp,v 1.10 2009/11/04 23:42:34 ihatchondo Exp $
 ;;;
 ;;; Add on for CLX to have some CLOS events.
 ;;; This file is part of Eclipse.
@@ -248,8 +248,15 @@
   #+lucid `(clos:slot-definition-initargs ,slot)
   #+sbcl `(slot-value ,slot 'sb-pcl::initargs))
 
+(defmacro finalize-inheritance (class)
+  #+sbcl `(sb-mop:finalize-inheritance ,class)
+  #+cmu `(pcl:finalize-inheritance ,class)
+  #+clisp `(clos:finalize-inheritance ,class))
+
 (defmacro class-initargs (class)
-  `(loop for slot in (class-slots ,class) collect (car (slot-initargs slot))))
+  `(progn 
+     (finalize-inheritance ,class)
+     (loop for slot in (class-slots ,class) collect (car (slot-initargs slot)))))
 
 (macrolet ((define-make-event-function ()
   (flet ((make-initarg-key-value-pair (initargs)