Thu Aug 27 10:37:36 CEST 2009 Tobias Rautenkranz <tobias@rautenkranz.ch>

* Update to the new smokegenerator.

--- old-qt.gui/src/operator.lisp 2014-10-30 07:43:42.000000000 +0100

+++ new-qt.gui/src/operator.lisp 2014-10-30 07:43:43.000000000 +0100

@@ -1,4 +1,5 @@

(in-package :cl-smoke.qt-impl)

+(declaim (optimize (debug 3)))

(defun cxx:= (object &rest more-objects)

(if (null more-objects)

@@ -6,9 +7,11 @@

(every #'(lambda (o)

;; Consider Class::operator== and operator==

;; FIXME integrate this in the overload resolution

- (handler-case (qt:operator== object o)

- (smoke::no-applicable-cxx-method ()

- (cxx:operator== object o))))

+ (if (typep object 'smoke::smoke-standard-object)

+ (handler-case (qt:operator== object o)

+ (smoke::no-applicable-cxx-method ()

+ (cxx:operator== object o)))

+ (qt:operator== object o)))

more-objects)))

(defun cxx:/= (object &rest more-objects)

@@ -88,15 +91,6 @@

(index)

"Index ~A for ~A requested, but the length is ~A"

index object (cxx:size object))

- ;; FIXME smoke generates no destructor for QByteRef

- ;; kaylptusCxxToSmoke.pm 954:

- ;; # Also, if the class has no explicit destructor, generate a default one.

- ;; if ( !$hasDestructor && !$hasPrivatePureVirtual && !$isGlobalSpace && $classNode->{NodeType} ne 'namespace' ) {

- ;; > $hasPublicDestructor = 1;

- ;; > $hasPublicProtectedConstructor = 1;

- ;;

- ;; RESOLUTION:

- ;; wait for KDE 4.4 -- the new smoke_generator should fix this.

(cxx:operator= (cxx:operator[] object index)

new-value)

new-value)