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

* Better Lisp vector to QList<*> conversion.

--- old-qt.gui/src/string-list.lisp 2014-10-30 07:43:33.000000000 +0100

+++ new-qt.gui/src/string-list.lisp 2014-10-30 07:43:33.000000000 +0100

@@ -40,5 +40,10 @@

(make-cleanup-pointer

string-list #'qt-smoke-free-string-list)))

+(defun string-list-p (sequence)

+ (every #'stringp sequence))

+

(define-from-lisp-translation "const QStringList&"

- (vector string) coerce-string-list)

+ (and (vector string)

+ (satisfies string-list-p))

+ coerce-string-list)