Tue Apr 7 11:49:59 CEST 2009 Tobias Rautenkranz <tobias@rautenkranz.ch>
* cmucl support
diff -rN -u old-qt.gui/src/signal-slot/signal.lisp new-qt.gui/src/signal-slot/signal.lisp
--- old-qt.gui/src/signal-slot/signal.lisp 2014-10-30 07:50:44.000000000 +0100
+++ new-qt.gui/src/signal-slot/signal.lisp 2014-10-30 07:50:45.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.