[Openmcl-cvs-notifications] r14714 - /trunk/source/lib/misc.lisp

[svspire at clozure.com]

Author: svspire
Date: Fri Apr 15 15:02:25 2011
New Revision: 14714

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

Modified:
    trunk/source/lib/misc.lisp

Modified: trunk/source/lib/misc.lisp
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D
--- trunk/source/lib/misc.lisp (original)
+++ trunk/source/lib/misc.lisp Fri Apr 15 15:02:25 2011
@@ -256,6 +256,10 @@
 =

 (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)
 				 (f function)