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.
diff -rN -u old-qt.tests/src/overload.lisp new-qt.tests/src/overload.lisp
--- old-qt.tests/src/overload.lisp	2014-10-30 07:55:37.000000000 +0100
+++ new-qt.tests/src/overload.lisp	2014-10-30 07:55:37.000000000 +0100
@@ -26,7 +26,7 @@
 (defmethod cxx:data ((list my-list-model) index role)
   (incf (counter list))
   (if (< (cxx:row index) 2)
-      (qt:make-variant (cxx:row index))
+      (cxx:row index) ;; cl-smoke converts to the required qt:variant
       (qt:make-variant)))
 
 (defmethod cxx:row-count ((list my-list-model) parent)
diff -rN -u old-qt.tests/src/variant.lisp new-qt.tests/src/variant.lisp
--- old-qt.tests/src/variant.lisp	2014-10-30 07:55:37.000000000 +0100
+++ new-qt.tests/src/variant.lisp	2014-10-30 07:55:37.000000000 +0100
@@ -39,3 +39,9 @@
   (let ((variant (qt:make-variant)))
     (5am:is (= 1 (setf (qt:value variant) 1)))
     (5am:is (= 1 (qt:value variant)))))
+
+(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)))))