X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fpcl%2Fmethods.lisp;h=9f181f77c803447d1b76e3f5fe5a28367cd772a0;hb=3a2e34d8ed1293f2cecb5c2c6ea359b622e3f4f8;hp=91e746e481e86f10a817626a399ec8ce98d35b4d;hpb=dc3c6bfad38cbd96013cf76ce93a9273f01c46d2;p=sbcl.git

diff --git a/src/pcl/methods.lisp b/src/pcl/methods.lisp
index 91e746e..9f181f7 100644
--- a/src/pcl/methods.lisp
+++ b/src/pcl/methods.lisp
@@ -1359,9 +1359,7 @@
                         (make-dfun-lambda-list metatypes applyp)
                         (make-fast-method-call-lambda-list metatypes applyp))))
       (multiple-value-bind (cfunction constants)
-          (get-fun1 `(,(if function-p
-                           'instance-lambda
-                           'lambda)
+          (get-fun1 `(lambda
                       ,arglist
                       ,@(unless function-p
                           `((declare (ignore .pv-cell.