anchor.diff:                        (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))
  +                                              :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")))))))))
  
positive.code:         ,@(mapcar (lambda (file)
                      `(:script :type "text/javascript"
                                :src ,(format nil "~A" file)))
                    (list scripts))))))
  
  (defmacro %admin-app-page ((&key (title "REDSHIFTNET Admin") (styles nil) (scripts nil) header menu footer) &body body)
    "Standard app page template."
    `(%basic-admin-app-page (:title ,title :styles `(list ,@styles) :scripts `(list ,@scripts))
      (cl-who:with-html-output (hunchentoot::*standard-output*)
        (:header :id "header"
          (funcall ,header ,title (hunchentoot:session-value 'token)))
  
negative.code:         ,@(mapcar (lambda (file)
                      `(:link :type "text/css" :rel "stylesheet" :media "screen"
                              :href ,(format nil "~A" file)))
                        (lol:flatten (list styles)))
          (:title ,title)
          "<!--[if IE]><script src=\"http://html5shiv.googlecode.com/svn/trunk/html5.js\"></script><![endif]-->")
        (:body
  