94612 leo2007 <string>method doc</string> (defmethod area ((c cavity)) "Calculate the cross-section area." (* (cavity-width c) (cavity-depth c))) 3474680061 #lisp TRUE