Thu Jun 11 20:50:26 CEST 2009  Tobias Rautenkranz <tobias@rautenkranz.ch>
  * The CLISP null pointer is NIL
diff -rN -u old-qt.gui/src/object.lisp new-qt.gui/src/object.lisp
--- old-qt.gui/src/object.lisp	2014-10-30 07:46:40.000000000 +0100
+++ new-qt.gui/src/object.lisp	2014-10-30 07:46:40.000000000 +0100
@@ -72,10 +72,10 @@
         (error "No smoke parent found."))))
 
 (defmethod initialize-instance :after ((object qt:object)
-                                        &key pointer &allow-other-keys)
+                                       &key (pointer nil pointer-p) &allow-other-keys)
   "Registers the object to the parent when a parent was set in the constructor
 and the objects metaclass is SMOKE-WRAPPER-CLASS."
-  (when (and (null pointer)
+  (when (and (not pointer-p)
              (null-pointer-p (smoke::pointer object)))
     (error "Object ~A has not been constructed" object))
   (when (and (null pointer)