From: Juho Snellman <jsnell@iki.fi>
Date: Thu, 1 Dec 2005 00:21:21 +0000 (+0000)
Subject: 0.9.7.6:
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=2375dc21aed5764dc2ecbccdd6665d6db0596731;p=sbcl.git

0.9.7.6:
	Fix ansi-test DOCUMENTATION.SYMBOL.METHOD-COMBINATION.1

        * (Just to show off my amazing PCL skills).
---

diff --git a/NEWS b/NEWS
index 8c888c7..c68199c 100644
--- a/NEWS
+++ b/NEWS
@@ -9,6 +9,9 @@ changes in sbcl-0.9.8 relative to sbcl-0.9.7:
     file-stream.  (thanks to Robert J. Macomber)
   * optimization: improved type inference for arithmetic-for
     index variables in LOOP
+  * fixed some bugs revealed by Paul Dietz' test suite:
+    ** DOCUMENTATION returns NIL instead of "" for method combinations
+       that don't have a docstring
 
 changes in sbcl-0.9.7 relative to sbcl-0.9.6:
   * minor incompatible change: (SETF CLASS-NAME) and (SETF
diff --git a/src/pcl/defcombin.lisp b/src/pcl/defcombin.lisp
index 676bf9b..21e886f 100644
--- a/src/pcl/defcombin.lisp
+++ b/src/pcl/defcombin.lisp
@@ -68,7 +68,7 @@
 (defun expand-short-defcombin (whole)
   (let* ((type (cadr whole))
          (documentation
-           (getf (cddr whole) :documentation ""))
+           (getf (cddr whole) :documentation))
          (identity-with-one-arg
            (getf (cddr whole) :identity-with-one-argument nil))
          (operator
diff --git a/version.lisp-expr b/version.lisp-expr
index e468a33..cef4cda 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.9.7.5"
+"0.9.7.6"