Sun May 31 19:33:32 CEST 2009 Tobias Rautenkranz <tobias@rautenkranz.ch>

* Rework QObject parent ownership transfer

--- old-qt.gui/src/lisp-object.lisp 2014-10-30 07:48:32.000000000 +0100

+++ new-qt.gui/src/lisp-object.lisp 2014-10-30 07:48:32.000000000 +0100

@@ -1,7 +1,6 @@

(in-package :qt)

-(declaim (optimize (debug 3)))

-(defvar *cxx-lisp-objects* (make-hash-table)

+(defvar *cxx-lisp-objects* (smoke::make-synchronized-hash-table)

"Objects that are currently passed in a C++ class.")

(let ((id 0))

@@ -28,7 +27,7 @@

((id :int))

(remhash id *cxx-lisp-objects*))

-(defvar *cxx-lisp-object-metatype*)

+(defvar *cxx-lisp-object-metatype* "Metatype ID of the C++ lisp_object.")

(eval-startup ()

(setf *cxx-lisp-object-metatype*