Wed Sep 2 14:00:35 CEST 2009 Tobias Rautenkranz <tobias@rautenkranz.ch>

* Better Lisp vector to QList<*> conversion.

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

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

@@ -88,12 +88,12 @@

(activate qsignal (id qsignal) (argument-types qsignal) arguments))

(defun activate (object id types arguments)

-;;; The first element of args would be used for the return value by

-;;; QMetaObject::invokeMethod(), but for signal-slot connection it is

-;;; ignored.

+ ;;; The first element of args would be used for the return value by

+ ;;; QMetaObject::invokeMethod(), but for signal-slot connection it is

+ ;;; ignored.

(smoke::with-stack (stack (convert-arguments arguments types)

types)

- (cffi:with-foreign-object (args :pointer (1+ (length arguments)))

+ (with-foreign-object (args :pointer (1+ (length arguments)))

(loop for i from 1 to (smoke::size stack)

for type in types

do