anchor.diff:  (in-package :tempus)
  +
  +;;; PC char_classes
  +(defparameter +class-help+ -2)
  +(defparameter +class-undefined+ -1)
  +(defparameter +class-none+ -1)
  +(defparameter +class-magic-user+ 0)
  +(defparameter +class-mage+ +class-magic-user+)
  +(defparameter +class-cleric+ 1)
  +(defparameter +class-thief+ 2)
  +(defparameter +class-warrior+ 3)
  +(defparameter +class-barb+ 4)
  +(defparameter +class-psionic+ 5)	; F
  +(defparameter +class-physic+ 6)	; F
  +(defparameter +class-cyborg+ 7)	; F
  +(defparameter +class-knight+ 8)
  +(defparameter +class-ranger+ 9)
  +(defparameter +class-bard+ 10)	; N
  +(defparameter +class-monk+ 11)
  +(defparameter +class-vampire+ 12)
  +(defparameter +class-mercenary+ 13)
  +(defparameter +class-spare1+ 14)
  +(defparameter +class-spare2+ 15)
  +(defparameter +class-spare3+ 16)
  +
  +(defparameter +num-classes+ 17)	; This must be the number of char_classes!!
  +(defparameter +class-normal+ 50)
  +(defparameter +class-bird+ 51)
  +(defparameter +class-predator+ 52)
  +(defparameter +class-snake+ 53)
  +(defparameter +class-horse+ 54)
  +(defparameter +class-small+ 55)
  +(defparameter +class-medium+ 56)
  +(defparameter +class-large+ 57)
  +(defparameter +class-scientist+ 58)
  +(defparameter +class-skeleton+ 60)
  +(defparameter +class-ghoul+ 61)
  +(defparameter +class-shadow+ 62)
  +(defparameter +class-wight+ 63)
  +(defparameter +class-wraith+ 64)
  +(defparameter +class-mummy+ 65)
  +(defparameter +class-spectre+ 66)
  +(defparameter +class-npc-vampire+ 67)
  +(defparameter +class-ghost+ 68)
  +(defparameter +class-lich+ 69)
  +(defparameter +class-zombie+ 70)
  +
  +(defparameter +class-earth+ 81)	; Elementals
  +(defparameter +class-fire+ 82)
  +(defparameter +class-water+ 83)
  +(defparameter +class-air+ 84)
  +(defparameter +class-lightning+ 85)
  +(defparameter +class-green+ 91)	; Dragons
  +(defparameter +class-white+ 92)
  +(defparameter +class-black+ 93)
  +(defparameter +class-blue+ 94)
  +(defparameter +class-red+ 95)
  +(defparameter +class-silver+ 96)
  +(defparameter +class-shadow-d+ 97)
  +(defparameter +class-deep+ 98)
  +(defparameter +class-turtle+ 99)
  +(defparameter +class-least+ 101)	; Devils
  +(defparameter +class-lesser+ 102)
  +(defparameter +class-greater+ 103)
  +(defparameter +class-duke+ 104)
  +(defparameter +class-arch+ 105)
  +(defparameter +class-hill+ 111)
  +(defparameter +class-stone+ 112)
  +(defparameter +class-frost+ 113)
  +(defparameter +class-fire-g+ 114)
  +(defparameter +class-cloud+ 115)
  +(defparameter +class-storm+ 116)
  +(defparameter +class-slaad-red+ 120)	; Slaad
  +(defparameter +class-slaad-blue+ 121)
  +(defparameter +class-slaad-green+ 122)
  +(defparameter +class-slaad-grey+ 123)
  +(defparameter +class-slaad-death+ 124)
  +(defparameter +class-slaad-lord+ 125)
  +(defparameter +class-demon-i+ 130)	; Demons of the Abyss
  +(defparameter +class-demon-ii+ 131)
  +(defparameter +class-demon-iii+ 132)
  +(defparameter +class-demon-iv+ 133)
  +(defparameter +class-demon-v+ 134)
  +(defparameter +class-demon-vi+ 135)
  +(defparameter +class-demon-semi+ 136)
  +(defparameter +class-demon-minor+ 137)
  +(defparameter +class-demon-major+ 138)
  +(defparameter +class-demon-lord+ 139)
  +(defparameter +class-demon-prince+ 140)
  +(defparameter +class-deva-astral+ 150)
  +(defparameter +class-deva-monadic+ 151)
  +(defparameter +class-deva-movanic+ 152)
  +(defparameter +class-mephit-fire+ 160)
  +(defparameter +class-mephit-lava+ 161)
  +(defparameter +class-mephit-smoke+ 162)
  +(defparameter +class-mephit-steam+ 163)
  +(defparameter +class-daemon-arcana+ 170)	// daemons
  +(defparameter +class-daemon-charona+ 171)
  +(defparameter +class-daemon-dergho+ 172)
  +(defparameter +class-daemon-hydro+ 173)
  +(defparameter +class-daemon-pisco+ 174)
  +(defparameter +class-daemon-ultro+ 175)
  +(defparameter +class-daemon-yagno+ 176)
  +(defparameter +class-daemon-pyro+ 177)
  +(defparameter +class-godling+ 178)
  +(defparameter +class-diety+ 179)
  +
  +(defparameter +top-class+ 180)
   
   (defparameter +race-human+ 0)
   (defparameter +race-elf+ 1)
  
positive.code: (defparameter +sex-male+ 1)
  (defparameter +sex-female+ 2)
  
  (defparameter +mob-spec+ (ash 1 0))	; Mob has a callable spec-proc
  (defparameter +mob-sentinel+ (ash 1 1))	; Mob should not move
  (defparameter +mob-scavenger+ (ash 1 2))	; Mob picks up stuff on the ground
  
negative.code:    (prog-marker :accessor prog-marker-of :initarg :prog-marker :initform nil)))
  
  (defclass player (creature)
    ((account :accessor account-of :initarg :account :initform nil)
     (title :accessor title-of :initarg :title :initform nil)
     (hometown :accessor hometown-of :initarg :hometown :initform nil)
     (poofin :accessor poofin-of :initarg :poofin :initform nil)
     (poofout :accessor poofout-of :initarg :poofout :initform nil)
     (command-aliases :accessor command-aliases-of :initarg :command-aliases :initform nil)
     (tongues-heard :accessor tongues-heard-of :initarg :tongues-heard :initform nil)
     (afk-reason :accessor afk-reason-of :initarg :afk-reason :initform nil)
     (last-tell-from :accessor last-tell-from-of :initarg :last-tell-from :initform nil)
     (last-tell-to :accessor last-tell-to-of :initarg :last-tell-to :initform nil)
     (imprint-rooms :accessor imprint-rooms-of :initarg :imprint-rooms :initform nil)
  