Fri Apr 17 17:30:05 CEST 2009 Tobias Rautenkranz <tobias@rautenkranz.ch>

* Use C++ style overload resolution.

--- old-kde.examples/src/mandelbrot/mandelbrot.lisp 2014-10-30 07:19:39.000000000 +0100

+++ new-kde.examples/src/mandelbrot/mandelbrot.lisp 2014-10-30 07:19:39.000000000 +0100

@@ -18,17 +18,15 @@

(declaim (optimize (debug 3)))

(defun make-aboutdata ()

- (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))

(program-name (kde:ki18n "KMandelbrot"))

- (version (make-instance 'qt:byte-array :args '("0.0.1")))

+ (version "0.0.1")

(description (kde:ki18n "KDE Mandelbrot program."))

(copyright (kde:ki18n "Copyright (c) 2009 Tobias Rautenkranz"))

(text (kde:ki18n "TODO"))

- (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"))

(let ((aboutdata

(make-instance 'kde:about-data :args (list

app-name catalog-name program-name

@@ -38,7 +36,7 @@

(cxx:add-author aboutdata

(kde:ki18n "Tobias Rautenkranz")

(make-instance 'kde:localized-string)

- (make-instance 'qt:byte-array :args '("tobias@rautenkranz.ch")))

+ "tobias@rautenkranz.ch")

aboutdata)))

(defun mandelbrot ()