anchor.diff:               (appendf (session-value 'errors) errors)
                (redirect "/signup")))))
       (:get
  -     (with-yaclml-output-to-string
  -       (<:html
  -        (<:head
  -         (<:title "Sign up for Sykosomatic")
  -         (<:script :src "http://ajax.googleapis.com/ajax/libs/jquery/1.5.1/jquery.min.js" :type "text/javascript"))
  -        (<:body
  -         (render-error-messages)
  -         (render-signup-component)))))))
  +     (render-page "Sign up"
  +                  (lambda ()
  +                    (render-error-messages)
  +                    (render-signup-component))))))
   
   ;;; Characters
   (define-easy-handler (newchar :uri "/newchar") (name description)
  
positive.code:     (start-session))
    (case (request-method*)
      (:get
       (with-yaclml-output-to-string
         (<:html
          (<:head
           (<:title "Login Page")
           (<:script :src "http://ajax.googleapis.com/ajax/libs/jquery/1.5.1/jquery.min.js" :type "text/javascript"))
          (<:body
           (when-let ((account-name (session-value 'account-name)))
             (push (format nil "Already logged in as ~A." account-name)
                   (session-value 'errors)))
           (render-error-messages)
           (render-login-component))
          (<:a :href "/signup" "Create account."))))
      (:post
       (if-let ((account (validate-credentials account-name password)))
         (progn
  
negative.code:              (appendf (session-value 'errors) errors)
               (redirect "/signup")))))
      (:get
       (render-page "Create a character"
                    (lambda ()
                      (render-error-messages)
                      (render-character-creation-component))))))
  
  (define-easy-handler (character-selection :uri "/charselect") ()
    (ensure-logged-in)
    (render-page "Select character"
                 (lambda ()
                   (render-error-messages)
                   (render-character-selection)
                   (render-logout-button))))
  
  ;;; Misc
  (define-easy-handler (ajax-ping :uri "/pingme") ()
    (ensure-logged-in)
    (setf (content-type*) "text/plain")
    "pong")
  