Changeset 7205 for branches/working-0709/ccl/lib/misc.lisp

Timestamp:

Sep 12, 2007, 2:26:36 PM (13 years ago)

Author:

gb

Message:

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

File:

• branches/working-0709/ccl/lib/misc.lisp (modified) (1 diff)

branches/working-0709/ccl/lib/misc.lisp

@@ -300 +300 @@
   (documentation c 'type))
 
+
 (defmethod (setf documentation) ((new t)
                                  (c structure-class)
                                  (doc-type (eql 't)))
   (setf (documentation c 'type) new))
+
+(defmethod documentation ((slot slot-definition) (doc-type (eql 't)))
+  (standard-slot-definition.documentation slot))
+
+(defmethod (setf documentation) (new (slot slot-definition) (doc-type (eql 't)))
+  (setf (standard-slot-definition.documentation slot) new))
+
+
 
 ;;; This is now deprecated; things which call it should stop doing so.