anchor.diff:  
   (define-easy-handler (dashboard :uri "/dashboard") ()
     (let ((username (cookie-in "current-user")))
  -    (if (not (string= username "login"))
  +    (if (not (or (string= username "login") (string= username "")))
     (standard-page (:title "Dashboard")
       (standard-navbar)
       (standard-dashboard :messages (standard-global-messages)))
  
positive.code: 
  (defmacro standard-global-messages ()
    `(with-html-output (*standard-output* nil :indent t)
      
       (dolist (messages (find-global-messages)) *current-message-list*
       (htm (:div :class "media alert alert-info"
  	   (:div :class "media-left"
  
negative.code: 		       :id "collapsible"
  		       (:ul :class "nav navbar-nav"
  			    (:li (:a :href "/dashboard" "Timeline"))
  			    (:li (:a :href (concatenate 'string "/profile/" (cookie-in "current-user"))  "Profile"))
  			    (:li (:a :href "/write-order" "Write Order")))
  		       (:ul :class "nav navbar-nav navbar-right"
  			    (:li (:a :href "/signout" "Sign out"))))))))
  
  