Sun Dec 13 11:50:24 CET 2009  Tobias Rautenkranz <tobias@rautenkranz.ch>
  * Install msg-handler also when starting from an image
diff -rN -u old-qt.gui/src/msg-handler.lisp new-qt.gui/src/msg-handler.lisp
--- old-qt.gui/src/msg-handler.lisp	2014-10-29 02:42:12.000000000 +0100
+++ new-qt.gui/src/msg-handler.lisp	2014-10-29 02:42:12.000000000 +0100
@@ -20,5 +20,5 @@
     (#.(value qt:+qt-critical-msg+) (cerror "Ignore" "~A" message))
     (#.(value qt:+qt-fatal-msg+) (error message))))
 
-(eval-when (:load-toplevel)
+(eval-startup (:load-toplevel)
   (qt:q-install-msg-handler (callback qt-msg-handler)))
diff -rN -u old-qt.gui/src/qt.lisp new-qt.gui/src/qt.lisp
--- old-qt.gui/src/qt.lisp	2014-10-29 02:42:12.000000000 +0100
+++ new-qt.gui/src/qt.lisp	2014-10-29 02:42:12.000000000 +0100
@@ -28,10 +28,9 @@
 (in-package :cl-smoke.qt-impl)
 
 (define-smoke-module :cl-smoke.qt libsmokeqt
-    (*qt-smoke* "qt_Smoke")
+  (*qt-smoke* "qt_Smoke")
   (init-qt-smoke "init_qt_Smoke"))
 
-
 (eval-when (:load-toplevel :compile-toplevel :execute)
   #-mudballs
   (define-foreign-library libqt-smoke-extra