Wed Sep  2 14:06:44 CEST 2009  Tobias Rautenkranz <tobias@rautenkranz.ch>
  * Let cl-smoke to do the return value user conversion.
diff -rN -u old-qt.examples/src/class-browser.lisp new-qt.examples/src/class-browser.lisp
--- old-qt.examples/src/class-browser.lisp	2014-10-30 07:37:00.000000000 +0100
+++ new-qt.examples/src/class-browser.lisp	2014-10-30 07:37:00.000000000 +0100
@@ -16,8 +16,7 @@
   (if (and (cxx:is-valid index)
            (< (cxx:row index) (length (items list)))
            (= role (value qt:+display-role+)))
-      (qt:make-variant
-       (string-downcase (class-name (aref (items list) (cxx:row index)))))
+      (string-downcase (class-name (aref (items list) (cxx:row index))))
       (qt:make-variant)))
 
 (defun class-at (model-index)