Wed Jun 10 14:14:34 CEST 2009 Tobias Rautenkranz <tobias@rautenkranz.ch>

* Transfer ownerhip only for smoke classes.

--- old-qt.gui/src/application.lisp 2014-10-30 07:47:31.000000000 +0100

+++ new-qt.gui/src/application.lisp 2014-10-30 07:47:31.000000000 +0100

@@ -50,8 +50,8 @@

(foreign-free argv)

(foreign-free argc)

- (setf argv (foreign-alloc :string :initial-contents args))

(setf argc (foreign-alloc :int :initial-element (length args)))

+ (setf argv (foreign-alloc :string :initial-contents args))

(let ((app (make-instance 'qt:application :args (list argc argv))))

(tg:cancel-finalization app)

(values app t)))))