Wed May 27 14:26:25 CEST 2009  Tobias Rautenkranz <tobias@rautenkranz.ch>
  * cleanup
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:49:14.000000000 +0100
+++ new-qt.gui/src/signal-slot/signal.lisp	2014-10-30 07:49:14.000000000 +0100
@@ -103,16 +103,6 @@
                 "Failed to disconnect ~S to the slot ~S of ~S."
                 qsignal slot receiver))))
 
-(defmethod smoke::push-lisp-object (stack object class)
-  (let ((cxx-object (make-cxx-lisp-object object)))
-    (smoke::push-cleanup stack
-
-                         #'(lambda ()
-                             (qt-smoke-free-lisp-object cxx-object)))
-    (smoke::push-stack2 stack
-                        cxx-object
-                        0)))
-
 (defun make-lisp-object (object)
   (smoke::make-cleanup-pointer (make-cxx-lisp-object object)
                                #'qt-smoke-free-lisp-object))
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:49:14.000000000 +0100
+++ new-qt.gui/src/signal-slot/slot.lisp	2014-10-30 07:49:14.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."
diff -rN -u old-qt.gui/src/signal-slot/translate.lisp new-qt.gui/src/signal-slot/translate.lisp
--- old-qt.gui/src/signal-slot/translate.lisp	2014-10-30 07:49:14.000000000 +0100
+++ new-qt.gui/src/signal-slot/translate.lisp	2014-10-30 07:49:14.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)))