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-18 22:51:08.000000000 +0200
+++ new-qt.gui/src/lib/CMakeLists.txt 2014-10-18 22:51:08.000000000 +0200
@@ -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-18 22:51:08.000000000 +0200
+++ new-qt.gui/src/object.lisp 2014-10-18 22:51:08.000000000 +0200
@@ -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-18 22:51:08.000000000 +0200
+++ new-qt.gui/src/qt.lisp 2014-10-18 22:51:08.000000000 +0200
@@ -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)