Thu Jun 11 16:59:48 CEST 2009 Tobias Rautenkranz <tobias@rautenkranz.ch>

* :qt and :qt-impl packages to prevent collision with :cl symbols and fix object with non smoke parent.

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

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

@@ -1,4 +1,4 @@

-(in-package :qt)

+(in-package :cl-smoke.qt-impl)

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

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

@@ -33,7 +33,7 @@

(setf *cxx-lisp-object-metatype*

(qt-smoke-setup-lisp-object (callback destruct-cxx-lisp-object)))

(assert (>= *cxx-lisp-object-metatype*

- (smoke::value meta-type.+user+))

+ (smoke::value qt:meta-type.+user+))

(*cxx-lisp-object-metatype*)

"setup of lisp-object failed"))