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

* cleanup

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

+++ new-qt.gui/src/signal-slot/signal.lisp 2014-10-30 07:49:16.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))