Thu Aug 27 13:17:58 CEST 2009 Tobias Rautenkranz <tobias@rautenkranz.ch>

* Fix invalid keyword argument errors in defclass qt-class.

--- old-commonqt/src/commonqt.lisp 2014-10-30 07:08:57.000000000 +0100

+++ new-commonqt/src/commonqt.lisp 2014-10-30 07:08:57.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)