Sun Aug 30 16:12:44 CEST 2009 Tobias Rautenkranz <tobias@rautenkranz.ch>

* Allow deriving from multiple C++ classes.

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

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

@@ -118,14 +118,6 @@

(push ,method ,methods))))

t)))))

-(defun all-smoke-superclasses (class)

- "Returns a list of all super-classes of CLASS and CLASS itself."

- (declare (optimize (speed 3)))

- (let ((classes (list class)))

- (dolist (class (closer-mop:class-direct-superclasses class) classes)

- (when (typep class 'smoke-standard-class)

- (setf classes (append (all-smoke-superclasses class) classes))))))

-

(defun viable-functions (name argument-count class &optional const-p)

(declare (optimize (speed 3)))

(with-foreign-string (name name)