Sun May 24 13:42:39 CEST 2009 Tobias Rautenkranz <tobias@rautenkranz.ch>

* Signal slot finalization fix

--- old-qt.gui/src/variant.lisp 2014-10-30 07:50:08.000000000 +0100

+++ new-qt.gui/src/variant.lisp 2014-10-30 07:50:08.000000000 +0100

@@ -4,7 +4,7 @@

"Print the type and value of the variant."

(if (null-pointer-p (pointer variant))

(call-next-method)

- (print-unreadable-object (variant stream :type t)

+ (print-unreadable-object (variant stream :type t :identity t)

(format stream "~A~@[ ~S~]"

(cxx:type-name variant)

(handler-case (from-variant variant)