define-marshalling-test :|QVariant|: objects of type QVariant can be …

…marshalled too.
commonqt · Jan 4, 2011 · 96daa68 · 96daa68
1 parent 3567633
commit 96daa68
Showing 1 changed file with 4 additions and 3 deletions.
diff --git a/qvariant.lisp b/qvariant.lisp
@@ -43,6 +43,7 @@
   (typecase value
     ((or string integer single-float double-float) t)
     (qobject
-       (iter (for (code . type) in (qvariant-ptr-types))
-             (thereis (qtypep value type))))
-    (t nil)))
+     (or (qtypep value "QVariant")
+         (iter (for (code . type) in (qvariant-ptr-types))
+               (thereis (qtypep value type)))))
+    (t nil)))