anchor.diff:                    (if (validate-credentials username password)
                         (progn (create-new-session username)
                                (,@body))
  -                      (%basic-admin-app-page (:title "Login Failed")
  +                      (%basic-admin-app-page (:title "Login Failed"
  +                                              :scripts admin-login-scripts
  +                                              :styles admin-login-styles)
                           (show-all-messages)
                           (,@login-page-fun)))))
                  ((eql :get (hunchentoot:request-method*))
                   (progn (hunchentoot:start-session)
  -                       (%basic-admin-app-page (:title "Login")
  +                       (%basic-admin-app-page (:title "Login"
  +                                               :scripts admin-login-scripts
  +                                               :styles admin-login-styles)
                            (cl-who:with-html-output (hunchentoot::*standard-output*)
                              (,@login-page-fun)))))
                  (t (hunchentoot:redirect "/403/")))
  
positive.code:         ,@body
          (:script :type "text/javascript" :src "/static/js/jquery-1.9.1.min.js")
          (:script :type "text/javascript" :src "/static/js/bootstrap.min.js")
          (:script :type "text/javascript" :src "/redshiftnet.js")
          (:script :type "text/javascript" :src "/admin.js")
          ,@(mapcar (lambda (file)
  
negative.code:       (:head
          (:meta :http-equiv "Content-Type" :content "text/html;charset=utf-8")
          (:meta :name "viewport" :content "width=device-width, initial-scale=1.0")
          (:meta :name "application-name" :content "REDSHIFTNET Admin")
          (:meta :name "author" :content "the Phoeron <//thephoeron.com/>")
          (:link :rel "stylesheet" :href "/static/css/bootstrap.min.css" :type "text/css" :media "screen")
          (:link :rel "stylesheet" :type "text/css" :href "/static/css/bootstrap/bootstrap-theme.css")
          (:link :rel "stylesheet" :type "text/css" :href "/static/css/icons.css")
          (:link :rel "stylesheet" :type "text/css" :href "/static/js/plugins/forms/uniform/uniform.default.css")
          "<!--[if IE 8]><link href=\"css/ie8.css\" rel=\"stylesheet\" type=\"text/css\" /><![endif]-->"
          (:link :rel "apple-touch-icon-precomposed" :sizes "144x144" :href "/static/images/ico/apple-touch-icon-144-precomposed.png")
          (:link :rel "apple-touch-icon-precomposed" :sizes "114x114" :href "/static/images/ico/apple-touch-icon-114-precomposed.png")
          (:link :rel "apple-touch-icon-precomposed" :sizes "72x72" :href "/static/images/ico/apple-touch-icon-72-precomposed.png")
          (:link :rel "apple-touch-icon-precomposed" :href "/static/images/ico/apple-touch-icon-57-precomposed.png")
          (:link :rel "shortcut icon" :href "/static/images/ico/favicon.png")
          (:link :rel "stylesheet" :href "/redshiftnet.css" :type "text/css" :media "screen")
          (:link :rel "stylesheet" :href "/admin.css" :type "text/css" :media "screen")
          ,@(mapcar (lambda (file)
  