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
|