Next:
Test of `animal-shelter'
Up:
2nd example of object
Previous:
Class `cat'
Contents
Index
Class `animal-shelter'
Georg P. Loczewski 2004-03-05
![\begin{lstlisting}[language=Scm]{}
(define make-shelter
(lambda()
(define anim...
...
(if (equalx msg 'display)
display
(super msg)))))))
self))
\end{lstlisting}](img156.gif)
Georg P. Loczewski
2004-03-05