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

* Signal slot finalization fix

+(defun disown-object (object)

+ (tg:cancel-finalization object)

+ (unless (smoke::virtual-destructor-p (class-of object))

+ (smoke::remove-object (pointer object)))

+ object)

+

+ "Returns the lisp value or object at POINTER of type TYPE."

- (smoke::object-to-lisp pointer type))

+ ;; By value means that they are allocated by the C++ signal

+ ;; code and have dynamic extend in the slot. The C++ singal code

+ ;; frees the object when the slot returns.

+ (disown-object (smoke::object-to-lisp pointer type)))

+ "Returns ARGUMENTS for a slot invocation as lisp objects."

+ "Returns the QMetaType ID for SMOKE-TYPE."

+ "Returns a newly allocated array of QMetaType IDs of SMOKE-TYPES."

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

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