anchor.diff:                        (progn (create-new-session username)
                                ,@body)
                         (%basic-admin-app-page (:title "Login Failed"
  -                                              :scripts `(list ,@admin-login-scripts)
  -                                              :styles `(list ,@admin-login-styles))
  +                                              :scripts ,@(list admin-login-scripts)
  +                                              :styles ,@(list admin-login-styles))
                           (show-all-messages)
                           (funcall ,lpf "/static/images/redshiftnet_text_logo.png")))))
                  ((eql :get (hunchentoot:request-method*))
                   (progn (hunchentoot:start-session)
                          (%basic-admin-app-page (:title "Login"
  -                                               :scripts `(list ,@admin-login-scripts)
  -                                               :styles `(list ,@admin-login-styles))
  +                                               :scripts ,@(list admin-login-scripts)
  +                                               :styles ,@(list admin-login-styles))
                            (cl-who:with-html-output (hunchentoot::*standard-output*)
                              (funcall ,lpf "/static/images/redshiftnet_text_logo.png")))))
                  (t (hunchentoot:redirect "/403/")))
  
positive.code:         ,@(mapcar (lambda (file)
                      `(:link :type "text/css" :rel "stylesheet" :media "screen"
                              :href ,(format nil "~A" file)))
                       (list styles))
          (:title ,title)
          "<!--[if IE]><script src=\"http://html5shiv.googlecode.com/svn/trunk/html5.js\"></script><![endif]-->")
        (:body
  
negative.code:                       (cl-who:with-html-output (hunchentoot::*standard-output*)
                          ,@body))
                 (progn (%basic-admin-app-page (:title "Error: Validation Failure"
                                                :scripts ,@(list admin-login-scripts)
                                                :styles ,@(list admin-login-styles))
                          (show-all-messages)
                          (cl-who:with-html-output (hunchentoot::*standard-output*)
                            (funcall ,lpf "/static/images/redshiftnet_text_logo.png")))))))))
  