/[gcl]/gcl/ansi-tests/documentation.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/documentation.lsp

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

revision 1.5 by pfdietz, Fri Aug 12 11:35:35 2005 UTC revision 1.6 by camm, Fri Aug 12 15:42:49 2005 UTC
# Line 627  Line 627 
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)))

Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26