anchor.diff:  
   (defmacro standard-global-messages ()
     `(with-html-output (*standard-output* nil :indent t)
  -     (dolist (messages (find-global-messages)) *current-message-list*
  +     (dolist (messages (find-global-messages)) 
        (htm (:div :class "media alert alert-info"
   	   (:div :class "media-left"
   		 (:a :class "pull-left" :href (concatenate 'string "/profile/" (message-sender messages))))
  
positive.code: 		       :item-name item-name)
  	*current-message-list*))
  
  (defvar *global-invoice-list* '())
  (defun find-invoice (invoicename)
    (find invoicename *global-invoice-list* :test #'string-equal
  	:key #'show-name))
  (defun register-invoice (&key id-num
  			   set-name
  			   show-name
  
negative.code:     (standard-navbar)
      (standard-dashboard :messages (standard-global-messages)))
    (redirect "/login"))))
  
  (define-easy-handler (setthemcookies :uri "/setthemcookies") ()
    (standard-page (:title "Set Them Cookies")
      (standard-navbar)
      (standard-invoice-writing :show  (fmt "Showname: ~A" (escape-string (hunchentoot:post-parameter "showname")))
      :set (fmt "Setname: ~A" (escape-string (hunchentoot:post-parameter "setname"))))))
  
  (define-easy-handler (signout :uri "/signout") ()
    (set-cookie "current-user" :value "login")
  