Inheritance/Single: Difference between revisions
m
Corrected XLISP
(Added XLISP) |
m (Corrected XLISP) |
||
Line 1,864:
(define-class dog
(super-class animal))
(define-class cat
(super-class animal))
(define-class collie
(super-class dog))
(define-class lab
(super-class dog))</lang>
A REPL session:
<lang lisp>[1] (
#<Class:ANIMAL #x57094c8>
[2] (collie 'superclass)
#<Class:DOG #x57094c8>
[3] (animal 'superclass)
#<Class:
[
Object is #<Class:DOG #x57094c8>, Class is #<Class:CLASS #x57094c8>
#<Class:OBJECT #x5a894c8></lang>▼
Instance variables:
NAME = DOG
MESSAGES = ()
IVARS = ()
CVARS = #<Environment #x5879788>
SUPERCLASS = #<Class:ANIMAL #x57094c8>
IVARCNT = 0
IVARTOTAL = 0
=={{header|zkl}}==
| |||