Tue May 19 16:32:42 CEST 2009 Tobias Rautenkranz <tobias@rautenkranz.ch>

* Clozure CL save-application fixes

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

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

@@ -166,8 +166,9 @@

(remhash (smoke::pointer (cxx:child child-event)) *children*)))))

nil)

-(cffi:defcfun qt-smoke-register-event-notify :boolean

- (event-notify :pointer))

+(eval-when (:compile-toplevel :load-toplevel :execute)

+ (cffi:defcfun qt-smoke-register-event-notify :boolean

+ (event-notify :pointer)))

(defun register-event-notify ()

(let ((ret (qt-smoke-register-event-notify (cffi:callback event-notify))))