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 (file)
--- 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 (file)
--- 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 (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.9.7.5"
+"0.9.7.6"