Wed Jul 1 12:58:06 CEST 2009 Tobias Rautenkranz <tobias@rautenkranz.ch>

* Break API compatibility for qt:with-app and qt:exec & spellcheck

--- old-qt.gui/src/signal-slot/slot.lisp 2014-10-30 07:46:19.000000000 +0100

+++ new-qt.gui/src/signal-slot/slot.lisp 2014-10-30 07:46:19.000000000 +0100

@@ -30,6 +30,7 @@

(defmethod cxx:qt-metacall ((slot qslot) call id arguments)

"Invoke the slots function when it is called. The return value

of the invoked slot function is ignored."

+ (declare (ignore id))

(let ((id (call-next-method)))

(if (< id 0)

id

@@ -48,8 +49,8 @@

(defun find-signal-id (sender signal)

"Returns the ID of SIGNAL from SENDER."

- ;; For efficency assume that SIGNAL is normalized and fallback

- ;; to normalzing when not. (Just like Qt does.)

+ ;; For efficiency assume that SIGNAL is normalized and fallback

+ ;; to normalizing when not. (Just like Qt does.)

(let ((id (cxx:index-of-signal (cxx:meta-object sender)

signal)))

(when (< id 0)