Tue Sep 1 13:44:21 CEST 2009 Tobias Rautenkranz <tobias@rautenkranz.ch>

* Fix overload resolution using types and test caching the overload resolution.

--- old-smoke/src/using-type.lisp 2014-10-30 08:10:47.000000000 +0100

+++ new-smoke/src/using-type.lisp 2014-10-30 08:10:47.000000000 +0100

@@ -13,7 +13,7 @@

`(,function-name ,@args))

(call-using-type (function-name &rest args)

`(,function-name ,@args)))

- ,@body))

+ ,@body))

(defun typep-using-type (object-type type)

"Returns true when OBJECT-TYPE is a subtype of TYPE,