Changeset 7205


Ignore:
Timestamp:
Sep 12, 2007, 2:26:36 PM (12 years ago)
Author:
gb
Message:

DOCUMENTATION (and (SETF DOCUMENTATION)) for SLOT-DEFINITION metaobjects.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0709/ccl/lib/misc.lisp

    r5920 r7205  
    300300  (documentation c 'type))
    301301
     302
    302303(defmethod (setf documentation) ((new t)
    303304                                 (c structure-class)
    304305                                 (doc-type (eql 't)))
    305306  (setf (documentation c 'type) new))
     307
     308(defmethod documentation ((slot slot-definition) (doc-type (eql 't)))
     309  (standard-slot-definition.documentation slot))
     310
     311(defmethod (setf documentation) (new (slot slot-definition) (doc-type (eql 't)))
     312  (setf (standard-slot-definition.documentation slot) new))
     313
     314
    306315
    307316;;; This is now deprecated; things which call it should stop doing so.
Note: See TracChangeset for help on using the changeset viewer.