Sun Jan 10 09:54:26 CET 2010 Tobias Rautenkranz <tobias@rautenkranz.ch>

* modular smoke & cleanup.

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

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

@@ -79,7 +79,7 @@

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

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

- (cxx:load web-view (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)))

(cxx:set-text info