Fix examples of MAKE-CLASS and DEFINE-CLASS so that the implicit

generic-procedure definitions are made explicit.

diff --git a/v7/doc/sos/sos.texinfo b/v7/doc/sos/sos.texinfo
index 4d52b9f0e178e4d6389997572ee220b9f07b2e24..6eb792c434056a13e81789ae88af8290870effbd 100644 (file)
--- a/v7/doc/sos/sos.texinfo
+++ b/v7/doc/sos/sos.texinfo
@@ -1,10 +1,10 @@
 \input texinfo @c -*-Texinfo-*-
-@comment $Id: sos.texinfo,v 2.19 2004/10/17 03:08:09 cph Exp $
+@comment $Id: sos.texinfo,v 2.20 2006/05/16 16:59:35 cph Exp $
 @comment %**start of header
 @setfilename mit-scheme-sos
 @set EDITION 2.11
-@set VERSION 1.8
-@set UPDATED 2004-10-16
+@set VERSION 1.9
+@set UPDATED 2006-05-16
 @settitle SOS @value{VERSION}
 @comment %**end of header
 @setchapternewpage on
@@ -20,7 +20,7 @@ This manual documents @acronym{SOS} @value{VERSION}.
 
 Copyright @copyright{} 1993,1994,1997,1998 Massachusetts Institute of Technology@*
 Copyright @copyright{} 1999,2000,2001,2002 Massachusetts Institute of Technology@*
-Copyright @copyright{} 2003,2004 Massachusetts Institute of Technology
+Copyright @copyright{} 2003,2004,2006 Massachusetts Institute of Technology
 
 @quotation
 Permission is granted to copy, distribute and/or modify this document
@@ -310,6 +310,14 @@ Examples of @code{make-class}:
   (make-class '<cell> '() '()))
 @end group
 
+@group
+(define-generic cell-name (cell))
+(define-generic cell-width (cell))
+(define-generic cell-height (cell))
+(define-generic cell-components (cell))
+(define-generic set-cell-components! (cell components))
+@end group
+
 @group
 (define <contact>
   (make-class '<contact>
@@ -461,6 +469,14 @@ for @code{make-class}):
 @lisp
 (define-class <cell> ())
 
+@group
+(define-generic cell-name (cell))
+(define-generic cell-width (cell))
+(define-generic cell-height (cell))
+(define-generic cell-components (cell))
+(define-generic set-cell-components! (cell components))
+@end group
+
 @group
 (define-class (<contact> (constructor (name) no-init)) (<cell>)
   (name accessor cell-name))