Next:
Class `author'
Up:
3rd example of object
Previous:
Class `base-object-class'
Contents
Index
Class `person'
Georg P. Loczewski 2004-03-05
![\begin{lstlisting}[language=Scm]{}
(define make-person
(lambda(aname)
(define ...
...x msg 'who-are-you)
who-are-you
(base-object msg)))))
self))
\end{lstlisting}](img161.gif)
Georg P. Loczewski
2004-03-05