anchor.diff:    (prompt (cxn)
       (cxn-write cxn "Enter your selection: "))
     (input (cxn line)
  -   (cond 
  +   (cond
        ((string= line "")
         (send-menu cxn 'main-menu))
        ((or (char-equal (char line 0) #\l) (eql (char line 0) #\0))
  
positive.code: (defun player-pathname (idnum)
    (make-pathname :name (princ-to-string idnum)
  				 :type "dat"
  				 :defaults
  				 (merge-pathnames (format nil "lib/players/character/~d/"
  										  (mod idnum 10))
  								  (asdf:component-pathname
  								   (asdf:find-system "tempus")))))
  
  (defun equipment-pathname (idnum)
    (make-pathname :name (princ-to-string idnum)
  				 :type "equip"
  				 :defaults
  				 (merge-pathnames (format nil "lib/players/equipment/~d/"
  										  (mod idnum 10))
  								  (asdf:component-pathname
  								   (asdf:find-system "tempus")))))
  
  (defun corpse-pathname (idnum)
    (make-pathname :name (princ-to-string idnum)
  				 :type "dat"
  				 :defaults
  				 (merge-pathnames (format nil "lib/players/corpses/~d/"
  										  (mod idnum 10))
  								  (asdf:component-pathname
  								   (asdf:find-system "tempus")))))
  
  (defun player-to-game (player)
    (setf (login-time-of player) (now))
  
negative.code:                (cxn-write cxn "~%")))))
       finally (when (and brief (not (logtest idx 1)))
                 (cxn-write cxn "~%"))))
  
  (define-connection-state main-menu
    (menu (cxn)
     (cxn-write cxn "&@&c*&n&b-----------------------------------------------------------------------------&c*
  