;; ;; Define a class for animals. (defclass animal () ( (legs :initform nil :accessor legs :initarg :legs) (name :initform nil :accessor name :initarg :name) (stomachs :initform 1 :accessor stomachs :initarg :stomachs) ) (:default-initargs :stomachs 2) ) (defmethod speak ((who animal)) (princ "Hello, I'm")(princ (name who)))