RosettaCodeData/Task/Inheritance-Single/XLISP/inheritance-single-1.xlisp

14 lines
199 B
Text
Raw Permalink Normal View History

2016-12-05 23:44:36 +01:00
(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))