CVS: sbcl/src/pcl defcombin.lisp,1.17,1.18

Update of /cvsroot/sbcl/sbcl/src/pcl
In directory sc8-pr-cvs1:/tmp/cvs-serv1933/src/pcl

Modified Files:
        defcombin.lisp 
Log Message:
0.pre8.119:
        Sneaking in despite the freeze: fix the long form of 
        DEFINE-METHOD-COMBINATION, which is allowed a documentation 
        string.


Index: defcombin.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/pcl/defcombin.lisp,v
retrieving revision 1.17
retrieving revision 1.18
diff -u -d -r1.17 -r1.18
--- defcombin.lisp      19 Nov 2002 19:02:15 -0000      1.17
+++ defcombin.lisp      29 Apr 2003 13:19:15 -0000      1.18
@@ -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



-------------------------------------------------------
This sf.net email is sponsored by:ThinkGeek
Welcome to geek heaven.
http://thinkgeek.com/sf