anchor.diff:        (setf (state-of cxn) 'new-player-name))
        ((char-equal (char line 0) #\p)
         (setf (state-of cxn) 'set-password-auth))
  +     ((char-equal (char line 0) #\e)
  +      (cond
  +        ((null (players-of (account-of cxn)))
  +         (cxn-write cxn "~%That isn't a valid command.~%~%"))
  +        ((null (rest (players-of (account-of cxn))))
  +         ;; only one character to delete, so skip prompt
  +         (setf (actor-of cxn) (load-player-from-xml
  +                               (idnum-of (first
  +                                          (players-of (account-of cxn))))))
  +         (setf (state-of cxn) 'describe-editor))
  +        (t
  +         ;; multiple possibilities, so go to selection prompt
  +         (setf (state-of cxn) 'describe-character))))
        ((char-equal (char line 0) #\d)
         (cond
           ((null (players-of (account-of cxn)))
  
positive.code: 
  (defun send-section-header (cxn str)
    (if (string= str "")
  	  (cxn-write cxn "&b~v,1,,'-a&n~%" 72 "")
  	  (cxn-write cxn "&b~v,1,,'-a &y~a &b~v,1,,'-a&n~%"
  				 (- (/ 70 2) (/ (1+ (length str)) 2)) ""
  				 (string-capitalize str)
  				 (- (/ 70 2) (/ (length str) 2)) "")))
  
negative.code:     delete-verify
      delete-password
      describe-character
      describe-editor
      playing
  	afterlife
      editing
      disconnecting))
  
  (defvar *cxn-paginate* nil)
  