Fri Apr 17 17:30:05 CEST 2009 Tobias Rautenkranz <tobias@rautenkranz.ch>
* Use C++ style overload resolution.
hunk ./src/mandelbrot/mandelbrot.lisp 21
- (let ((app-name (make-instance 'qt:byte-array :args '("kmandelbrot")))
- (catalog-name (make-instance 'qt:byte-array))
+ (let ((app-name "kmandelbrot")
+ (catalog-name (cffi:null-pointer))
hunk ./src/mandelbrot/mandelbrot.lisp 24
- (version (make-instance 'qt:byte-array :args '("0.0.1")))
+ (version "0.0.1")
hunk ./src/mandelbrot/mandelbrot.lisp 28
- (homepage (make-instance 'qt:byte-array
- :args '("http://tobias.rautenkranz.ch")))
- (email (make-instance 'qt:byte-array [_$_]
- :args '("bugs@tobias.rautenkranz.ch"))))
+ (homepage "http://tobias.rautenkranz.ch/lisp/cl-smoke/")
+ (email "bugs@tobias.rautenkranz.ch"))
hunk ./src/mandelbrot/mandelbrot.lisp 39
- (make-instance 'qt:byte-array :args '("tobias@rautenkranz.ch")))
+ "tobias@rautenkranz.ch")
hunk ./src/mandelbrot/mandelbrotwidget.lisp 56
- (cxx:set-pen painter (make-instance 'qt:color
- :args (list qt:+white+)))
+ (cxx:set-pen painter #xFFFFFF) ;; FIXME make qt:+white+ work
hunk ./src/mandelbrot/mandelbrotwidget.lisp 95
- (make-instance 'qt:brush :args (list
- (make-instance 'qt:color :args (list qt:+black+)))))
+ #x000) ;; FIXME qt:+black+