Wed Sep  9 21:25:37 CEST 2009  Tobias Rautenkranz <tobias@rautenkranz.ch>
  * Template types are no longer t_class.
diff -rN -u old-smoke/src/objects/stack.lisp new-smoke/src/objects/stack.lisp
--- old-smoke/src/objects/stack.lisp	2014-10-30 08:10:14.000000000 +0100
+++ new-smoke/src/objects/stack.lisp	2014-10-30 08:10:14.000000000 +0100
@@ -105,13 +105,13 @@
   "Returns the Lisp representation for STACK-ITEM of the basic C type TYPE."
   (declare (optimize (speed 3)))
   (ecase (type-id type)
-    ((0 13) (if-let ((translation (gethash (name type) *to-lisp-translations*)))
-              (let ((pointer (foreign-slot-value stack-item 'smoke-stack-item
-                                                 'voidp)))
-                (prog1 (funcall (car translation) pointer)
-                  (when (stack-p type)
-                    (funcall (cdr translation) pointer))))
-              (error "Do not know how to convert the type ~A to Lisp." type)))
+    (0 (if-let ((translation (gethash (name type) *to-lisp-translations*)))
+         (let ((pointer (foreign-slot-value stack-item 'smoke-stack-item
+                                            'voidp)))
+           (prog1 (funcall (car translation) pointer)
+             (when (stack-p type)
+               (funcall (cdr translation) pointer))))
+         (error "Do not know how to convert the type ~A to Lisp." type)))
     (1 (foreign-slot-value stack-item 'smoke-stack-item 'bool))
     (2 (code-char (foreign-slot-value stack-item 'smoke-stack-item 'char)))
     (3 (code-char (foreign-slot-value stack-item 'smoke-stack-item 'uchar)))
diff -rN -u old-smoke/src/overload-resolution.lisp new-smoke/src/overload-resolution.lisp
--- old-smoke/src/overload-resolution.lisp	2014-10-30 08:10:14.000000000 +0100
+++ new-smoke/src/overload-resolution.lisp	2014-10-30 08:10:14.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)