Changeset 14714


Ignore:
Timestamp:
Apr 15, 2011, 8:02:25 PM (9 years ago)
Author:
svspire
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/lib/misc.lisp

    r14327 r14714  
    257257(defmethod documentation ((f function) (doc-type (eql 'function)))
    258258  (documentation f t))
     259
     260(defmethod documentation ((slot slot-definition) (doc-type t))
     261   (when (or (eq doc-type t)(eq doc-type 'slot-definition))
     262     (slot-definition-documentation slot)))
    259263
    260264(defmethod (setf documentation) ((new t)
Note: See TracChangeset for help on using the changeset viewer.