;;; This is a queue that holds all <corpse> objects.
;;; Notes: this WON'T help you to find a path to the nearest corpse, it
;;; will only help you if you decide to pick _any_ corpse and advance
;;; towards it.  Another point - there is no current code that dequeues
;;; corpses off this queue - you are responsible for this (if you want
;;; to use it).
(define *corpse-queue* (make <queue>))
(defmethod (make-corpse (a <animate>))
  (let ((c (make <corpse>
                 :nick (nick a) :name (name a) :location (location a))))
    (enqueue c *corpse-queue*)
    c))