RosettaCodeData/Task/Inheritance-Single/XLISP/inheritance-single-1.xlisp
2016-12-05 23:44:36 +01:00

13 lines
199 B
Text

(define-class animal)
(define-class dog
(super-class animal))
(define-class cat
(super-class animal))
(define-class collie
(super-class dog))
(define-class lab
(super-class dog))