CMUCL commit: src (general-info/release-20b.txt pcl/defcombin.lisp)

[Raymond Toy]

    Date: Saturday, April 17, 2010 @ 16:12:25
  Author: rtoy
    Path: /project/cmucl/cvsroot/src

Modified: general-info/release-20b.txt pcl/defcombin.lisp

pcl/defcombin.lisp:
o Set the default documentation for the short form of
  DEFINE-METHOD-COMBINATION to NIL instead of "".

general-info/release-20b.txt:
o Update


------------------------------+
 general-info/release-20b.txt |    2 ++
 pcl/defcombin.lisp           |    4 ++--
 2 files changed, 4 insertions(+), 2 deletions(-)


Index: src/general-info/release-20b.txt
diff -u src/general-info/release-20b.txt:1.19 src/general-info/release-20b.txt:1.20
--- src/general-info/release-20b.txt:1.19	Sat Apr 17 15:05:51 2010
+++ src/general-info/release-20b.txt	Sat Apr 17 16:12:25 2010
@@ -58,6 +58,8 @@
       class object as well as a name.
     - Recognize but ignore the :DECLARE argument to
       ENSURE-GENERIC-FUNCTION. 
+    - Default documentation for short form of
+      DEFINE-METHOD-COMBINATION is NIL, not "".
 
   * Bugfixes:
     - On Unicode builds, printing of '|\|| and '|`| was incorrect
Index: src/pcl/defcombin.lisp
diff -u src/pcl/defcombin.lisp:1.28 src/pcl/defcombin.lisp:1.29
--- src/pcl/defcombin.lisp:1.28	Fri Mar 19 11:19:03 2010
+++ src/pcl/defcombin.lisp	Sat Apr 17 16:12:25 2010
@@ -25,7 +25,7 @@
 ;;; *************************************************************************
 
 (file-comment
-  "$Header: /project/cmucl/cvsroot/src/pcl/defcombin.lisp,v 1.28 2010-03-19 15:19:03 rtoy Exp $")
+  "$Header: /project/cmucl/cvsroot/src/pcl/defcombin.lisp,v 1.29 2010-04-17 20:12:25 rtoy Exp $")
 
 (in-package :pcl)
 (intl:textdomain "cmucl")
@@ -110,7 +110,7 @@
 (defun expand-short-defcombin (whole)
   (let* ((type (cadr whole))
 	 (documentation
-	   (getf (cddr whole) :documentation ""))
+	   (getf (cddr whole) :documentation nil))
 	 (identity-with-one-arg
 	   (getf (cddr whole) :identity-with-one-argument nil))
 	 (operator