Tue Apr  7 11:49:59 CEST 2009  Tobias Rautenkranz <tobias@rautenkranz.ch>
  * cmucl support
diff -rN -u old-qt.core/src/signal-slot/signal.lisp new-qt.core/src/signal-slot/signal.lisp
--- old-qt.core/src/signal-slot/signal.lisp	2014-11-16 03:13:02.000000000 +0100
+++ new-qt.core/src/signal-slot/signal.lisp	2014-11-16 03:13:02.000000000 +0100
@@ -17,9 +17,13 @@
                    :initarg :argument-types
                    :documentation "List of the argument types"))
   (:documentation "Qt Signal object.")
-  (:metaclass smoke::smoke-wrapper-class))
+  (:metaclass cxx:class))
 
-(defclass qsignal (qsignal-mixin closer-mop:funcallable-standard-object)
+#+cmu (defmethod closer-mop:validate-superclass ((class closer-mop:funcallable-standard-class)
+                                           (superclass standard-class))
+  t)
+
+(defclass qsignal (closer-mop:funcallable-standard-object qsignal-mixin)
   ()
   (:metaclass closer-mop:funcallable-standard-class)
   (:documentation "A funcallable Qt signal.