X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fpcl%2Fdlisp.lisp;h=26419ce657efeee641f6d0986c1015f844601e6f;hb=e2616df02fae589e0dd1e15fa7a7e44f1469d0ec;hp=99bb7890cc83a8dc4c7eb937705b23732ec62fcb;hpb=3a5eefac8a65dfd36729031f0a9b9dd8c022b7f2;p=sbcl.git

diff --git a/src/pcl/dlisp.lisp b/src/pcl/dlisp.lisp
index 99bb789..26419ce 100644
--- 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)))))