Thu Jul 23 00:21:01 CEST 2009 Tobias Rautenkranz <tobias@rautenkranz.ch>

* support packages for symbols as property names.

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

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

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

(defun find-signal-id (sender signal)

"Returns the ID of SIGNAL from SENDER."

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

- ;; to normalizing 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)