Thu Aug 27 13:17:58 CEST 2009  Tobias Rautenkranz <tobias@rautenkranz.ch>
  * Fix invalid keyword argument errors in defclass qt-class.
diff -rN -u old-commonqt/src/commonqt.lisp new-commonqt/src/commonqt.lisp
--- old-commonqt/src/commonqt.lisp	2014-10-30 07:08:55.000000000 +0100
+++ new-commonqt/src/commonqt.lisp	2014-10-30 07:08:55.000000000 +0100
@@ -225,10 +225,11 @@
             m-id))))
 
 (defmethod initialize-instance :around ((class qt-class)
-                                        &rest args)
+                                        &rest args &key &allow-other-keys)
   (apply #'setup-qt-class class #'call-next-method args))
 
-(defmethod reinitialize-instance :around ((qt-class qt-class) &rest args)
+(defmethod reinitialize-instance :around ((qt-class qt-class)
+                                          &rest args &key &allow-other-keys)
   (apply #'setup-qt-class qt-class #'call-next-method args))
 
 (defun emit-signal (object signal-name &rest arguments)
diff -rN -u old-commonqt/tests/test.lisp new-commonqt/tests/test.lisp
--- old-commonqt/tests/test.lisp	2014-10-30 07:08:55.000000000 +0100
+++ new-commonqt/tests/test.lisp	2014-10-30 07:08:55.000000000 +0100
@@ -143,8 +143,9 @@
   (qt:enable-syntax))
 
 (5am:test docu
-  (qapropos "QObject")
-  (qdescribe "QObject"))
+  (with-output-to-string (*standard-output*)
+    (qapropos "QObject")
+    (qdescribe "QObject")))
 
 (eval-when (:load-toplevel)
   (let ((results (5am:run :cl-smoke.commonqt-suite)))