X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fpcl%2Fdefcombin.lisp;h=ff9265720fa332b0711a02f27a390d45456b6024;hb=2bcdd03aba3bc43e34732e8c6b0b1bfbead6dae1;hp=e312ba908eba58b6f756a752ba9daa03ecbe48a8;hpb=ea652c139bb060d821f3010b3b106bdbcec983aa;p=sbcl.git

diff --git a/src/pcl/defcombin.lisp b/src/pcl/defcombin.lisp
index e312ba9..ff92657 100644
--- a/src/pcl/defcombin.lisp
+++ b/src/pcl/defcombin.lisp
@@ -233,9 +233,7 @@
        (type ll method-group-specifiers args-option gf-var body)
   (declare (ignore type))
   (multiple-value-bind (real-body declarations documentation)
-      ;; (Note that PARSE-BODY ignores its second arg ENVIRONMENT.)
-      (parse-body body nil)
-
+      (parse-body body)
     (let ((wrapped-body
 	    (wrap-method-group-specifier-bindings method-group-specifiers
 						  declarations