6 lines
169 B
Common 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)))
|