(describe-obj $.name) (awhen (find-creature $.race) (fmt "~:(~A ~A~)" $it.caste[$.caste].caste_id $it.creature_id)) dtor 8532fa0