Thu Jun 11 20:50:26 CEST 2009 Tobias Rautenkranz <tobias@rautenkranz.ch>

* The CLISP null pointer is NIL

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

+++ new-qt.gui/src/object.lisp 2014-10-30 07:00:55.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)