From 88479a82f67bc32c5685fa7ef45f70f02b4ed739 Mon Sep 17 00:00:00 2001 From: Christophe Rhodes Date: Fri, 10 Oct 2003 09:14:33 +0000 Subject: [PATCH] 0.8.4.18: Fix DOCUMENTATION bug reported by dan_b on #lisp ... set documentation slot of braid classes to NIL --- src/pcl/braid.lisp | 1 + tests/interface.pure.lisp | 5 +++++ version.lisp-expr | 2 +- 3 files changed, 7 insertions(+), 1 deletion(-) diff --git a/src/pcl/braid.lisp b/src/pcl/braid.lisp index 82f1563..1a8b077 100644 --- 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 --- 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 --- 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" -- 1.7.10.4