anchor.diff:            (<:label (<:ah "Password"))
             (<:input :type "password" :name "password")
             (<:br)
  -          (<:input :type "submit" :value "Submit")))
  +          (<:submit :value "Submit")))
   
   (define-easy-handler (login :uri "/login") (account-name password)
     (if (and *session* (session-value 'account-name))
  
positive.code:           (<:label (<:ah "Confirm password"))
            (<:input :type "password" :name "confirmation")
            (<:br)
            (<:input :type "submit" :value "Submit")))
  
  (defun render-error-messages (errors)
    (<:ul :class "errorlist"
  
negative.code:                  (<:input :type "textarea" :id "user-action")
                   (<:label (<:ah "Dialogue: "))
                   (<:input :type "textarea" :id "user-dialogue")
                   (<:submit :value "Send"))))
  
  (defun render-logout-button ()
    (<:form :class "logout-button" :action "/logout"
            (<:submit :value "Log Out")))
  
  (define-easy-handler (home :uri "/") ()
    (unless (and *session* (session-value 'account-name))
  