anchor.diff:    (when *server* (stop *server*) (setf *server* nil)))
   
   (define-easy-handler (login :uri "/login") (username)
  -  (unless *session*
  -    (start-session))
  +  (if (and *session* (session-value 'username))
  +      (redirect "/")
  +      (start-session))
     (with-yaclml-output-to-string
       (<:html
        (<:head
  
positive.code:             margin-left: auto;
              width: 600px;
            }
  
  "
  )
  
negative.code: ;; Question: Do even minor instances of HTML need to be templated out?
  
  ;; TODO for today:
  
  (defvar *server* nil)
  (defparameter *current-story* nil)
  