src/clos.lisp
Sat Feb 20 18:24:36 CET 2010 Tobias Rautenkranz <tobias@rautenkranz.ch>
* Cache overload resolution on sbcl
--- old-smoke/src/clos.lisp 2014-10-30 08:06:10.000000000 +0100
+++ new-smoke/src/clos.lisp 2014-10-30 08:06:10.000000000 +0100
@@ -461,9 +461,11 @@
(defun call-constructor (class arguments)
(multiple-value-bind (method sequence)
- (find-best-viable-function (constructor-name class)
- arguments
- class)
+ (#-sbcl find-best-viable-function
+ #+sbcl find-best-viable-function-cached
+ (constructor-name class)
+ arguments
+ class nil)
(when (null method)
(error "No constructor for class ~A with
the arguments ~S." class arguments))