anchor.diff:  (defun is-rakshasa (ch) (= (race-of ch) +race-rakshasa+))
   (defun is-rowlahr (ch) (= (race-of ch) +race-rowlahr+))
   
  +(defun get-eq (ch pos) (aref (equipment-of ch) pos))
  +(defun get-implant (ch pos) (aref (implants-of ch) pos))
  +(defun get-tattoo (ch pos) (aref (tattoos-of ch) pos))
   (defun get-condition (ch cond) (aref (conditions-of ch) cond))
   
   (defun char-withstands-fire (ch)
  
positive.code:   (if (shared-of ch)
        (vnum-of (shared-of ch))
        -1))
  (defun clone-mobile-proto (proto)
    (let ((maxhitp (if (zerop (max-hitp-of proto))
                       (+ (dice (hitp-of proto) (mana-of proto)) (move-of proto))
  
negative.code:    (sex :accessor sex-of :initarg :sex :initform 'male)
     (race :accessor race-of :initarg :race :initform 0)
     (level :accessor level-of :initarg :level :initform 0)
     (age-adjust :accessor age-adjust-of :initarg :age-adjust :initform 0)
     (age :accessor age-of :initarg :age :initform nil)
     (birth-time :accessor birth-time-of :initarg :birth-time :initform nil)
     (login-time :accessor login-time-of :initarg :birth-time :initform nil)
  