/[cmucl]/src/pcl/std-class.lisp
ViewVC logotype

Diff of /src/pcl/std-class.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.10 by dtc, Fri Aug 29 20:21:32 1997 UTC revision 1.11 by dtc, Sat Aug 30 18:40:27 1997 UTC
# Line 113  Line 113 
113    (when documentation-p    (when documentation-p
114      (setf (plist-value object 'documentation) documentation)))      (setf (plist-value object 'documentation) documentation)))
115    
116  (defmethod documentation (object &optional doc-type)  (defmethod documentation (object doc-type)
117    (declare (ignore object doc-type))    (declare (ignore object doc-type))
118    nil)    nil)
119    
120  (defmethod (setf documentation) (new-value object &optional doc-type)  (defmethod (setf documentation) (new-value object doc-type)
121    (declare (ignore new-value doc-type))    (declare (ignore new-value doc-type))
122    (error "Can't change the documentation of ~S." object))    (error "Can't change the documentation of ~S." object))
123    
124    (defmethod documentation ((object documentation-mixin) doc-type)
 (defmethod documentation ((object documentation-mixin) &optional doc-type)  
125    (declare (ignore doc-type))    (declare (ignore doc-type))
126    (plist-value object 'documentation))    (plist-value object 'documentation))
127    
128  (defmethod (setf documentation) (new-value (object documentation-mixin) &optional doc-type)  (defmethod (setf documentation) (new-value (object documentation-mixin) doc-type)
129    (declare (ignore doc-type))    (declare (ignore doc-type))
130    (setf (plist-value object 'documentation) new-value))    (setf (plist-value object 'documentation) new-value))
131    
132    
133  (defmethod documentation ((slotd standard-slot-definition) &optional doc-type)  (defmethod documentation ((slotd standard-slot-definition) doc-type)
134    (declare (ignore doc-type))    (declare (ignore doc-type))
135    (slot-value slotd 'documentation))    (slot-value slotd 'documentation))
136    
137  (defmethod (setf documentation) (new-value (slotd standard-slot-definition) &optional doc-type)  (defmethod (setf documentation) (new-value (slotd standard-slot-definition) doc-type)
138    (declare (ignore doc-type))    (declare (ignore doc-type))
139    (setf (slot-value slotd 'documentation) new-value))    (setf (slot-value slotd 'documentation) new-value))
140    

Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11

  ViewVC Help
Powered by ViewVC 1.1.5