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 06:54:29.000000000 +0100
+++ new-commonqt/src/commonqt.lisp 2014-10-30 06:54:29.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 06:54:29.000000000 +0100
+++ new-commonqt/tests/test.lisp 2014-10-30 06:54:29.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)))