From: Christophe Rhodes <csr21@cam.ac.uk>
Date: Tue, 29 Apr 2003 13:19:10 +0000 (+0000)
Subject: 0.pre8.119:
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=2bcdd03aba3bc43e34732e8c6b0b1bfbead6dae1;hp=3114dbf890dc304916d30c06895f55022b839a85;p=sbcl.git

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
--- 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
--- 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
--- 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"