0.pre8.119:

	Sneaking in despite the freeze: fix the long form of
	DEFINE-METHOD-COMBINATION, which is allowed a documentation
	string.

diff --git a/NEWS b/NEWS
index 29a00e6..c619210 100644 (file)
--- a/NEWS
+++ b/NEWS
@@ -1675,6 +1675,8 @@ changes in sbcl-0.8.0 relative to sbcl-0.7.14
     with a name from the CL package.
   * MAP-INTO for a vector destination is open coded.  (reported by
     Brian Downing on c.l.l)
+  * bug fix: the long form of DEFINE-METHOD-COMBINATION now accepts a
+    documentation string.
   * fixed some bugs revealed by Paul Dietz' test suite:
     ** COPY-ALIST now signals an error if its argument is a dotted
        list;

diff --git a/src/pcl/defcombin.lisp b/src/pcl/defcombin.lisp
index e312ba9..ff92657 100644 (file)
--- 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

diff --git a/version.lisp-expr b/version.lisp-expr
index 4f8fa0d..85f5aaa 100644 (file)
--- a/version.lisp-expr
+++ b/version.lisp-expr
@@ -17,4 +17,4 @@
 ;;; checkins which aren't released. (And occasionally for internal
 ;;; versions, especially for internal versions off the main CVS
 ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
-"0.pre8.118"
+"0.pre8.119"