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: 		      (:a :href (concatenate 'string "/profile/" (message-sender messages))
  			  (fmt "~A" (escape-string (message-sender messages)))))
  		 
  		 (fmt "~A" (escape-string (message-content messages)))))))))
  
  (defmacro standard-order-intro ()
    `(with-html-output (*standard-output* nil :indent t)
  
negative.code: 			  :placeholder "Contact Name" :name "inputContact"))
  	    (:button :type "submit" :class "btn btn-default" "Write Show Order"))))))
  
  (defmacro standard-invoice-writing (&key show set)
    `(with-html-output (*standard-output* nil :indent t)
       (:div :class "panel panel-default"
  	   (:div :class "panel-body"
  		 (:ul :class "list-group"
  		      (:li :class "list-group-item list-group-item-success" ,show)
  		      (:li :class "list-group-item list-group-item-danger" ,set))))))
  
  (define-easy-handler (createInvoice :uri "/createInvoice") ()
    (let ((showname (hunchentoot:post-parameter "inputShowname"))
  	(setname (hunchentoot:post-parameter "inputSetname"))
  