Wed Sep 9 21:25:37 CEST 2009 Tobias Rautenkranz <tobias@rautenkranz.ch>

* Template types are no longer t_class.

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

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

@@ -338,11 +338,8 @@

(10 (object.typep 'single-float))

(11 (object.typep 'double-float))

(12 (object.typep 'enum)) ;; FIXME enum-type

- (13 (if (class-p type)

- (and (object.typep 'smoke-standard-object)

- (smoke-type= (get-class type) (object.type-of)))

- (when-let (test (gethash (name type) *from-lisp-translations*))

- (funcall test object (using-typep)))))))

+ (13 (and (object.typep 'smoke-standard-object)

+ (smoke-type= (get-class type) (object.type-of))))))

(defun make-cleanup-pointer (pointer cleanup-function)