Wed Sep 2 14:02:23 CEST 2009 Tobias Rautenkranz <tobias@rautenkranz.ch>
* Test Lisp to QList<QVariant> and test user conversion sequence for return values.
hunk ./src/overload.lisp 29
- (qt:make-variant (cxx:row index))
+ (cxx:row index) ;; cl-smoke converts to the required qt:variant
hunk ./src/variant.lisp 43
+(5am:test variant-list
+ (let ((list (qt:make-variant (map 'vector #'qt:make-variant
+ '(1 "asdf" #\a)))))
+ (5am:is (string= "QVariantList"
+ (cxx:type-name list)))))
+