next up previous contents index
Next: Class `author' Up: 3rd example of object Previous: Class `base-object-class'   Contents   Index

Class `person'


\begin{lstlisting}[language=Scm]{}
(define make-person
(lambda(aname)
(define ...
...x msg 'who-are-you)
who-are-you
(base-object msg)))))
self))
\end{lstlisting}


Georg P. Loczewski 2004-03-05

Impressum und Datenschutz