0.8.4.18:

	Fix DOCUMENTATION bug reported by dan_b on #lisp
	... set documentation slot of braid classes to NIL

diff --git a/src/pcl/braid.lisp b/src/pcl/braid.lisp
index 82f1563..1a8b077 100644 (file)
--- a/src/pcl/braid.lisp
+++ b/src/pcl/braid.lisp
@@ -296,6 +296,7 @@
     (set-slot 'wrapper wrapper)
     (set-slot 'predicate-name (or (cadr (assoc name *early-class-predicates*))
                                  (make-class-predicate-name name)))
+    (set-slot 'documentation nil)
     (set-slot 'plist
              `(,@(and direct-default-initargs
                       `(direct-default-initargs ,direct-default-initargs))

diff --git a/tests/interface.pure.lisp b/tests/interface.pure.lisp
index f329d03..a9b39e3 100644 (file)
--- a/tests/interface.pure.lisp
+++ b/tests/interface.pure.lisp
@@ -104,3 +104,8 @@
   (sb-ext:with-timeout 3
     (sleep 2)
     (sleep 2)))
+
+;;; DOCUMENTATION should return nil, not signal slot-unbound
+(documentation 'fixnum 'type)
+(documentation 'class 'type)
+(documentation (find-class 'class) 'type)

diff --git a/version.lisp-expr b/version.lisp-expr
index e5d65fb..5d0b04f 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.8.4.17"
+"0.8.4.18"