anchor.diff:  		 (:h4 :class "media-heading"
   		      (: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 ()
  
positive.code: 	    (:div :class "form-group"
  		  (:label :for "inputShow" "Show")
  		  (:input :type "text" :class "form-control" :id "inputShowname"
  			  :placeholder "Showname"))
  	    (:div :class "form-group"
  		  (:label :for "inputSet" "Set")
  		  (:input :type "text" :class "form-control" :id "inputSetname"
  			  :placeholder "Set Name"))
  	    (:div :class "form-group"
  		  (:label :for "inputContact" "Contact Name")
  		  (:input :type "text" :class "form-control" :id "inputContact"
  			  :placeholder "Contact Name"))
  	    (:button :type "submit" :class "btn btn-default" "Write Show Order"))))))
  
  (define-easy-handler (createInvoice :uri "/createInvoice") ()
      (redirect "/dashboard"))
  (define-easy-handler (write-order :uri "/write-order") ()
    (standard-page (:title "Write Order")
      (standard-navbar)
  
negative.code:      (current-date :initarg :current-date
  		   :accessor dashboard-current-date)))
  ;;; Data
  (defvar *global-invoice-id* 0)
  (defvar *current-show-list* '())
  
  (defun find-show-name (name data-lst)
  