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-09-27 11:02:52.000000000 +0200
+++ new-qt.examples/src/class-browser.lisp 2014-09-27 11:02:52.000000000 +0200
@@ -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)