anchor.diff:     (compact-level :accessor compact-level-of :initform 0)
      (term-height :accessor term-height-of :initarg :term-height :initform 22)
      (term-width :accessor term-width-of :initarg :term-width :initform 80)
  -   (players :accessor players-of)
  +   (trust :accessor trust-of :initarg :trust :initform 0)
  +   (reputation :accessor reputation-of :initarg :reputation :initform 0)
  +   (quest-points :accessor quest-points-of :initarg :quest-points :initform 0)
  +   (banned :accessor banned-of :initarg :banned :initform nil)
  +   (quest-banned :accessor quest-banned-of :initarg :quest-banned :initform nil)
      (bank-past :accessor past-bank-of :initform 0)
  -   (bank-future :accessor future-bank-of :initform 0)))
  +   (bank-future :accessor future-bank-of :initform 0)
  +   (players :accessor players-of :initform nil)))
   
   (defvar *account-max-idnum* 0)
   (defvar *account-idnum-cache* (make-hash-table))
  
positive.code:   ((idnum :accessor idnum-of :initarg :idnum)
     (account :accessor account-of :initarg :account)
     (name :accessor name-of :initarg :name)
     (birth-time :accessor birth-time-of :initarg :birthtime)
     (login-time :accessor login-time-of :initarg :logintime)))
  
  (defclass account ()
    ((idnum :accessor idnum-of :initarg :idnum)
     (name :accessor name-of :initarg :name)
     (password :accessor password-of :initarg :password)
     (email :accessor email-of :initarg :email)
     (creation-time :accessor creation-time-of :initarg :creation-time)
     (creation-addr :accessor creation-addr-of :initarg :creation-addr)
  
negative.code: 
  (defun crypt-password (password salt)
    "Encrypt a password with a hash"
    (uffi:with-cstring (password-cstring (coerce password 'simple-string))
      (uffi:with-cstring (salt-cstring (coerce salt 'simple-string))
        (uffi:convert-from-cstring 
         (crypt password-cstring salt-cstring)))))
  
  