anchor.diff:            (:li :class "divider-vertical")
             (:li :class "dropdown"
               (:a :href "#" :class "dropdown-toggle" :data-toggle "dropdown"
  -              (:i :class "icon24 i-envelope-2")
  +              (:i :class "icon24 i-envelop-2")
                 (:span :class "notification red" "3"))
               (:ul :class "dropdown-menu messages" :role "menu"
                 (:li :class "head" :role "presentation"
  
positive.code:       (:body
          ,@body
          (:script :type "text/javascript" :src "/static/js/jquery-1.10.2.min.js")
          (:script :type "text/javascript" :src "/static/js/bootstrap/bootstrap.min.js")
          (:script :type "text/javascript" :src "/static/js/conditionizr.min.js")
          (:script :type "text/javascript" :src "/static/js/plugins/core/nicescroll/jquery.nicescroll.min.js")
          (:script :type "text/javascript" :src "/static/js/plugins/core/jrespond/jRespond.min.js")
          (:script :type "text/javascript" :src "/static/js/jquery.redshiftnetAdmin.js")
          (:script :type "text/javascript" :src "/redshiftnet.js")
          (:script :type "text/javascript" :src "/static/js/app.js")
          ,@(mapcar (lambda (file)
                      `(:script :type "text/javascript"
  
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
  