anchor.diff:  		    :content (concatenate 'string "An order has been started for " showname
   					   " for set " setname
   					   " ordered by " contact )
  -		    :invoice-name '(setname showname contact *global-invoice-id*)))
  +		    :invoice-name (list setname showname contact *global-invoice-id*)))
     (redirect "/dashboard"))
   		      
   (define-easy-handler (write-order :uri "/write-order") ()
  
positive.code: 			  :placeholder "Contact Name" :name "inputContact"))
  	    (:button :type "submit" :class "btn btn-default" "Write Show Order"))))))
  
  (define-easy-handler (createInvoice :uri "/createInvoice") ()
    (let ((showname (hunchentoot:post-parameter "inputShowname"))
  	(setname (hunchentoot:post-parameter "inputSetname"))
  
negative.code: 
  (defmacro standard-global-messages ()
    `(with-html-output (*standard-output* nil :indent t)
       (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))))
  