Tue Apr 7 11:49:59 CEST 2009 Tobias Rautenkranz <tobias@rautenkranz.ch>
* cmucl support
hunk ./src/signal-slot/signal.lisp 20
- (:metaclass smoke::smoke-wrapper-class))
+ (:metaclass cxx:class))
hunk ./src/signal-slot/signal.lisp 22
-(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)