Wed May 27 14:26:25 CEST 2009 Tobias Rautenkranz <tobias@rautenkranz.ch>

* cleanup

--- old-qt.gui/src/signal-slot/slot.lisp 2014-10-30 07:49:17.000000000 +0100

+++ new-qt.gui/src/signal-slot/slot.lisp 2014-10-30 07:49:18.000000000 +0100

@@ -27,15 +27,6 @@

"Returns the sender that invoked the slot."

`*sender*)

-(defun method-argument-count (metaobject index)

- "Returns the number of arguments for the method INDEX of METAOBJECT."

- (let ((signature (cxx:signature (cxx:method metaobject index))))

- (setf signature (subseq signature (1+ (position #\( signature))

- (position #\) signature :from-end t)))

- (if (= 0 (length signature))

- 0

- (1+ (count #\, signature)))))

-

(defmethod cxx:qt-metacall ((slot qslot) call id arguments)

"Invoke the slots function when it is called. The return value

of the invoked slot function is ignored."