0.9.9.9:

	Don't signal an error on (DOCUMENTATION 'FOO 'STRUCTURE) when
        there's no structure named 'FOO (reported by Glenn Ehrlich).

diff --git a/NEWS b/NEWS
index 671462e..9b03a4f 100644 (file)
--- a/NEWS
+++ b/NEWS
@@ -4,6 +4,9 @@ changes in sbcl-0.9.10 relative to sbcl-0.9.9:
     certain complicated string types.  (reported by Gary King)
   * fixed bug: STRING-TO-OCTETS and OCTETS-TO-STRING did not convert
     character codes.  (thanks to Yaroslav Kavenchuk and Ivan Boldyrev)
+  * fixed bug: DOCUMENTATION on structures no longer signals an 
+    error if no structure type of the right name exists.  (reported by
+    Glenn Ehrlich)
 
 changes in sbcl-0.9.9 relative to sbcl-0.9.8:
   * new platform: experimental support for the Windows operating

diff --git a/src/pcl/documentation.lisp b/src/pcl/documentation.lisp
index cd8e592..08ef197 100644 (file)
--- a/src/pcl/documentation.lisp
+++ b/src/pcl/documentation.lisp
@@ -149,7 +149,7 @@
         ((info :typed-structure :info x)
          (values (info :typed-structure :documentation x)))
         (t
-         (error "~S is not the name of a structure type." x))))
+         nil)))
 
 (defmethod (setf documentation) (new-value
                                  (x structure-class)
@@ -187,7 +187,7 @@
         ((info :typed-structure :info x)
          (setf (info :typed-structure :documentation x) new-value))
         (t
-         (error "~S is not the name of a structure type." x))))
+         nil)))
 
 \f
 ;;; variables

diff --git a/tests/interface.pure.lisp b/tests/interface.pure.lisp
index 2a27b35..df8ee36 100644 (file)
--- a/tests/interface.pure.lisp
+++ b/tests/interface.pure.lisp
@@ -66,6 +66,7 @@
 (documentation 'fixnum 'type)
 (documentation 'class 'type)
 (documentation (find-class 'class) 'type)
+(documentation 'foo 'structure)
 
 ;;; DECODE-UNIVERSAL-TIME should accept second-resolution time-zones.
 (macrolet ((test (ut time-zone list)

diff --git a/version.lisp-expr b/version.lisp-expr
index a3f3b13..3c0c9de 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.9.8"
+"0.9.9.9"