Sun Aug 2 12:12:41 CEST 2009 Tobias Rautenkranz <tobias@rautenkranz.ch>

* Cleanup C++ to Lisp translation

--- old-smoke/src/overload-resolution.lisp 2014-10-30 08:12:06.000000000 +0100

+++ new-smoke/src/overload-resolution.lisp 2014-10-30 08:12:06.000000000 +0100

@@ -404,12 +404,14 @@

;; (foo pointer) assumes pointer to point to a QByteArray, but

;; actually the conversion sequence QByteArray(pointer) should be

;; used. When pointer is a null pointer it fails horribly!.

+ ;;

+ ;; But it is needed for passing the int pointer in QApplication(int&, char**).

(when (and (or (= 0 (type-id type)) ; voidp

(= 13 (type-id type))) ; class

(object.typep 'foreign-pointer))

(make-match 'pointer-conversion 'identity nil

- :from (find-class 't)

- :to (find-class 't)))) ;; FIXME get the class when applicable

+ :from (find-class 't)

+ :to (find-class 't)))) ;; FIXME get the class when applicable

(defun+using-type conversion object (object type)