anchor.diff:  								  (asdf:component-pathname
   								   (asdf:find-system "tempus")))))
   
  -(defun load-player-actor (idnum)
  -  "Given the player id number, loads the player's actor into memory
  -and returns it."
  -  (let ((*package* (find-package 'tempus)))
  -	(with-open-file (inf (player-pathname idnum) :direction :input)
  -	  (let* ((new-player (apply #'make-instance (read inf)))
  -			 (alias (string-downcase (name-of new-player))))
  -		(setf (line-desc-of new-player)
  -			  (if (title new-player)
  -				  (concatenate 'string (name-of new-player) " " (title new-player))
  -				  (name-of new-player)))
  -        (setf (aliases-of new-player)
  -              (list alias (concatenate 'string "." alias)))
  -        (setf (short-desc-of new-player)
  -              (format nil "~:[a~;an~] ~a, ~a-eyed ~(~a~)"
  -                      (char-vowel-p (char (overall-desc-of new-player) 0))
  -                      (overall-desc-of new-player)
  -                      (eye-desc-of new-player)
  -                      (name-of (get-species (species new-player)))))
  -		(setf (prefs new-player)
  -			  (apply 'make-player-prefs (prefs new-player)))
  -		(setf (private-names-of new-player)
  -			  (assoc-to-hash (private-names-of new-player)))
  -		new-player))))
  -
   (defun player-to-game (player)
     (mudlog 'notice t "~a entering game as ~a"
  -		  (name-of (cxn-account (link player)))
  +		  (name-of (cxn-account (link-of player)))
   		  (name-of player))
     (actor-to-place player
  -				  (get-place (or (loadplace player)
  -								 (home player)
  +				  (get-place (or (load-room-of player)
  +								 (home-room-of player)
   								 10002)))
  -  (setf (loadplace player) nil)
  +  (setf (load-room-of player) nil)
     (dolist (equip (load-equipment (idnum-of player)))
   	(item-to-actor equip player))
  -  (unless (plusp (hitp player))
  -	(setf (hitp player) 1))
  +  (unless (plusp (hitp-of player))
  +	(setf (hitp-of player) 1))
     (act player :all-emit "$n enter$% the game.")
     (push player *characters*)
  -  (display-contents (place player) player (brief-p (prefs player)))
  +  (display-contents (place player) player (brief-p (prefs-of player)))
     (when (probe-file (mail-pathname (idnum-of player)))
   	(send-to-actor player "You have new mail.~%"))
     (save-player player)
  -  (setf (cxn-state (link player)) 'playing))
  +  (setf (state-of (link-of player)) 'playing))
   
   (defun send-section-header (cxn str)
     (if (string= str "")
  
positive.code:   (input (cxn line)
     (cond
       ((zerop (length line))
        (setf (cxn-state cxn) 'login))
       ((account-exists line)
        (cxn-write cxn "~%Sorry, that account name is already taken.~%"))
       ((validate-name line)
        (setf (cxn-mode-data cxn) line)
        (setf (cxn-state cxn) 'new-account-verify))
       (t
        nil))))
  
  
negative.code:    (case (char-downcase (char line 0))
       (#\y
        (setf (cxn-account cxn)
              (make-instance 'account :name (mode-data-of cxn)))
        (setf (idnum-of (cxn-account cxn))
              (1+ (max-account-id)))
        (save-account (cxn-account cxn))
        (setf (state-of cxn) 'new-account-ansi))
       (#\n
        (setf (state-of cxn) 'new-account))
       (t
        (cxn-write cxn "Please enter Y or N.~%")))))
  
  