Fri Apr 17 17:29:23 CEST 2009 Tobias Rautenkranz <tobias@rautenkranz.ch>

* Use C++ style overload resolution

--- old-qt.examples/src/class-browser.lisp 2014-10-30 07:39:00.000000000 +0100

+++ new-qt.examples/src/class-browser.lisp 2014-10-30 07:39:00.000000000 +0100

@@ -81,11 +81,9 @@

(defun set-info (info web-view model-index)

(let* ((class (class-at model-index)))

- (cxx:load web-view

- (make-instance 'qt:url

- :args (list (format nil "http://doc.trolltech.com/~A/~A.html"

+ (cxx:load web-view (format nil "http://doc.trolltech.com/~A/~A.html"

(subseq (qt:q-version) 0 3)

- (remove #\: (smoke::name class) :count 1)))))

+ (remove #\: (smoke::name class) :count 1)))

(cxx:set-text info

(format nil "<h1>qt:~A</h1>

<p>~A</p>