Changeset 14714

Timestamp:

Apr 15, 2011, 1:02:25 PM (14 years ago)

Author:

Shannon Spires

Message:

Support (documentation slotd t) where slotd is a slot-definition.
Fixes ticket:848

File:

• trunk/source/lib/misc.lisp (modified) (1 diff)

trunk/source/lib/misc.lisp

@@ -257 +257 @@
 (defmethod documentation ((f function) (doc-type (eql 'function)))
   (documentation f t))
+
+(defmethod documentation ((slot slot-definition) (doc-type t))
+   (when (or (eq doc-type t)(eq doc-type 'slot-definition))
+     (slot-definition-documentation slot)))
 
 (defmethod (setf documentation) ((new t)