Tue May 19 16:32:42 CEST 2009  Tobias Rautenkranz <tobias@rautenkranz.ch>
  * Clozure CL save-application fixes
diff -rN -u old-qt.gui/src/lib/CMakeLists.txt new-qt.gui/src/lib/CMakeLists.txt
--- old-qt.gui/src/lib/CMakeLists.txt	2014-10-30 07:50:16.000000000 +0100
+++ new-qt.gui/src/lib/CMakeLists.txt	2014-10-30 07:50:16.000000000 +0100
@@ -11,3 +11,6 @@
 set(QT_SMOKE_SOURCES qt-smoke.cpp qstring.cpp qstringlist.cpp lisp-object.cpp qlist.cpp)
 add_library(qt-smoke-extra MODULE ${QT_SMOKE_SOURCES})
 target_link_libraries(qt-smoke-extra ${QT_LIBRARIES})
+
+install(TARGETS qt-smoke-extra
+	LIBRARY DESTINATION lib)
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:50:16.000000000 +0100
+++ new-qt.gui/src/object.lisp	2014-10-30 07:50:16.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))))
diff -rN -u old-qt.gui/src/qt.lisp new-qt.gui/src/qt.lisp
--- old-qt.gui/src/qt.lisp	2014-10-30 07:50:16.000000000 +0100
+++ new-qt.gui/src/qt.lisp	2014-10-30 07:50:16.000000000 +0100
@@ -31,7 +31,7 @@
     (*qt-smoke* "qt_Smoke")
   (init-qt-smoke "init_qt_Smoke"))
 
-(smoke:eval-startup (:compile-toplevel :execute)
+(eval-when (:load-toplevel :compile-toplevel :execute)
   (use-foreign-library libqt-smoke-extra))
 
 (defun new (class-name method-name &rest args)