Index: /trunk/source/lib/misc.lisp
===================================================================
--- /trunk/source/lib/misc.lisp	(revision 14713)
+++ /trunk/source/lib/misc.lisp	(revision 14714)
@@ -257,4 +257,8 @@
 (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)