anchor.diff:  
   (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))
  +  `(%basic-admin-app-page (:title ,title :styles ,(eval styles) :scripts ,(eval scripts))
       (cl-who:with-html-output (hunchentoot::*standard-output*)
         (:header :id "header"
           (funcall ,header ,title (hunchentoot:session-value 'token)))
  
positive.code:           (:li :class "divider-vertical")
            (:li :class "dropdown"
              (:a :href "#" :class "dropdown-toggle" :data-toggle "dropdown"
                (:i :class "icon24 i-envelope-2")
                (:span :class "notification red" "3"))
              (:ul :class "dropdown-menu messages" :role "menu"
                (:li :class "head" :role "presentation"
  
negative.code:           (:li (:a :href "/admin/"
              (:span :class "icon" (:i :class "icon20 i-screen"))
              (:span :class "txt" "Dashboard")))
            (:li (:a :href "#tables"
              (:span :class "icon" (:i :class "icon20 i-table-2"))
              (:span :class "txt" "Tables")
              (:ul :class "sub"
                (:li (:a :href "/admin/tables/"
                         (:span :class "icon" (:i :class "icon20 i-table"))
                         (:span :class "txt" "All Tables")))
                (:li (:a :href "/admin/tables/person/"
                         (:span :class "icon" (:i :class "icon20 i-table"))
                         (:span :class "txt" "Person Table")))))))))))
  
  ;; Admin Login page
  (eval-when (:compile-toplevel :execute :load-toplevel)
    ;; Gotta make sure these parameters are available at macro expansion time
    ;; Login page
    (defparameter admin-login-styles (list "/static/css/pages/login.css"))
    (defparameter admin-login-scripts (list "/static/js/plugins/forms/uniform/jquery.uniform.min.js"
                                            "/static/js/plugins/forms/validation/jquery.validate.js"
                                            "/static/js/pages/login.js"))
    ;; Admin Dashboard
    (defparameter admin-dashboard-styles (list "/static/css/custom.css"
                                               "/static/css/app.css"))
    (defparameter admin-dashboard-scripts (list "/static/js/pages/dashboard.js"
                                                "/static/js/app.js")))
  
  (define-rsn-form (admin-login-form :submit "Login" :action "")
    ((username text
  