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

* cleanup

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

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

@@ -1,14 +1,5 @@

(in-package :qt)

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

- "Returns the number of arguments 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)))))

-

(defun find-type (name &optional start end)

(smoke::make-smoke-type *qt-smoke* (subseq name start end)))