anchor.diff:             (is-pudding ch)
              (is-slime ch))))
   
  +(defun is-dead (ch) (eql (position-of ch) +pos-dead+))
   (defun is-remort (ch) (plusp (remort-gen-of ch)))
   (defun is-pc (ch) (typep ch 'player))
   (defun is-npc (ch) (typep ch 'mobile))
  
positive.code:            (or (eql (plane-of (zone-of (in-room-of ch))) +plane-hell-5+)
                 (eql (plane-of (zone-of (in-room-of ch))) +plane-hell-8+)))))
  
  (defun char-has-blood (ch)
    (not (or (is-undead ch)
             (is-elemental ch)
  
negative.code:   ((shared :accessor shared-of :initarg :shared :initform nil)
     (memory :accessor memory-of :initarg :memory :initform nil)
     (func-data :accessor func-data-of :initarg :func-data :initform nil)
     (wait-state :accessor wait-state-of :initarg :wait-state :initform 0)
     (last-direction :accessor last-direction-of :initarg :last-direction :initform nil)
     (mob-idnum :accessor mob-idnum-of :initarg :mob-idnum :initform nil)
     (prog-state :accessor prog-state-of :initarg :prog-state :initform nil)
  