-- Important -- Misc (let* ((info $$._parent._parent._parent) (figure $info._parent._parent) (caste (find-instance $caste_raw $figure.caste $figure.race))) $caste.body_parts[$]) (describe-obj $.name) (awhen (find-creature $.race) (fmt "~:(~A ~A~)" $it.caste[$.caste].caste_id $it.creature_id)) dtor 8532fa0