627 |
(defmethod (setf documentation-test-class-1-doc-accessor) ((newdoc string) (obj documentation-test-class-1)) |
(defmethod (setf documentation-test-class-1-doc-accessor) ((newdoc string) (obj documentation-test-class-1)) |
628 |
(setf (slot-value obj 'my-doc) newdoc)) |
(setf (slot-value obj 'my-doc) newdoc)) |
629 |
|
|
630 |
(defmethod documentation ((obj documentation-test-class-1) (doctype (eql t))) |
; (defmethod documentation ((obj documentation-test-class-1) (doctype (eql t))) |
631 |
(documentation-test-class-1-doc-accessor obj)) |
; (documentation-test-class-1-doc-accessor obj)) |
632 |
|
|
633 |
(defmethod (setf documentation) ((newdoc string) (obj documentation-test-class-1) (doctype (eql t))) |
(defmethod (setf documentation) ((newdoc string) (obj documentation-test-class-1) (doctype (eql t))) |
634 |
(setf (documentation-test-class-1-doc-accessor obj) newdoc))) |
(setf (documentation-test-class-1-doc-accessor obj) newdoc))) |