0.9.3.32:

[sbcl.git] / src / pcl / dlisp.lisp

diff --git a/src/pcl/dlisp.lisp b/src/pcl/dlisp.lisp
index 99bb789..26419ce 100644 (file)
--- a/src/pcl/dlisp.lisp
+++ b/src/pcl/dlisp.lisp
@@ -123,7 +123,7 @@
          (lambda `(lambda ,closure-variables
                     ,@(when (member 'miss-fn closure-variables)
                         `((declare (type function miss-fn))))
-                    #'(instance-lambda ,args
+                    #'(lambda ,args
                         (let ()
                           (declare #.*optimize-speed*)
                           ,form)))))