Fri Jul 24 15:40:52 CEST 2009 Tobias Rautenkranz * Remove unnecessary #'cxx:data calls. 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:44:56.000000000 +0100 +++ new-qt.gui/src/signal-slot/signal.lisp 2014-10-30 07:44:56.000000000 +0100 @@ -58,7 +58,7 @@ slot))) (when (< id 0) (setf id (cxx:index-of-slot (cxx:meta-object receiver) - (cxx:data (qt:meta-object.normalized-signature slot))))) + (qt:meta-object.normalized-signature slot)))) (when (< id 0) (error "No slot ~S for class ~S. The valid slots are: ~{~<~%~T~0,75:;~A ~>~}" diff -rN -u old-qt.gui/src/signal-slot/slot.lisp new-qt.gui/src/signal-slot/slot.lisp --- old-qt.gui/src/signal-slot/slot.lisp 2014-10-30 07:44:56.000000000 +0100 +++ new-qt.gui/src/signal-slot/slot.lisp 2014-10-30 07:44:56.000000000 +0100 @@ -55,7 +55,7 @@ signal))) (when (< id 0) (setf id (cxx:index-of-signal (cxx:meta-object sender) - (cxx:data (qt:meta-object.normalized-signature signal))))) + (qt:meta-object.normalized-signature signal)))) (when (< id 0) (error "No signal ~S for class ~S." signal (class-of sender)))