anchor.diff:            ((null player)
              (cxn-write cxn "That character selection does not exist!~%~%"))
             ((null prev-actor)
  -           (setf (cxn-actor cxn) (load-player-actor (idnum-of player)))
  +           (setf (actor-of cxn) (load-player (idnum-of player)))
              (setf (login-time-of player) (now))
              (execute (:update 'players :set
                                'login-time (login-time-of player)))
  -           (setf (link (cxn-actor cxn)) cxn)
  -           (player-to-game (cxn-actor cxn)))
  -          ((link prev-actor)
  +           (setf (link-of (actor-of cxn)) cxn)
  +           (player-to-game (actor-of cxn)))
  +          ((link-of prev-actor)
              (send-to-actor prev-actor "You have logged on from another location!~%")
  -           (setf (cxn-actor (link prev-actor)) nil)
  -           (setf (cxn-state (link prev-actor)) 'disconnecting)
  -           (setf (cxn-connected (link prev-actor)) nil)
  -           (setf (link prev-actor) cxn)
  -           (setf (cxn-actor cxn) prev-actor)
  -           (setf (cxn-state cxn) 'playing)
  +           (setf (actor-of (link-of prev-actor)) nil)
  +           (setf (state-of (link-of prev-actor)) 'disconnecting)
  +           (setf (cxn-connected (link-of prev-actor)) nil)
  +           (setf (link-of prev-actor) cxn)
  +           (setf (actor-of cxn) prev-actor)
  +           (setf (state-of cxn) 'playing)
              (act prev-actor
   			   	:subject-emit "You take over your own body, already in use!"
   				:place-emit "$n has reconnected.")
  
positive.code:    (case (char-downcase (char line 0))
       (#\y
        (setf (cxn-account cxn)
              (make-instance 'account :name (cxn-mode-data cxn)))
        (setf (idnum-of (cxn-account cxn))
              (1+ (max-account-id)))
        (save-account (cxn-account cxn))
        (setf (cxn-state cxn) 'new-account-ansi))
       (#\n
        (setf (cxn-state cxn) 'new-account))
       (t
        (cxn-write cxn "Please enter Y or N.~%")))))
  
  
negative.code:            (null (species-by-name line)))
         (cxn-write cxn "~%You need to enter one of the listed species.~%~%"))
        (t
         (setf (species (actor-of cxn)) (idnum-of (species-by-name line)))
         (setf (state-of cxn) 'new-player-sex)))))
  
  (define-connection-state new-player-sex
    (menu (cxn)
  