RosettaCodeData/Task/Inheritance-Single/Common-Lisp/inheritance-single-2.lisp

6 lines
169 B
Common Lisp

(defstruct animal)
(defstruct (dog (:include animal)))
(defstruct (lab (:include dog)))
(defstruct (collie (:include dog)))
(defstruct (cat (:include animal)))