anchor.diff:  		 (:button :type "submit"
   			  :class "btn btn-primary"
   			  "Create Show")))))
  +
   (define-easy-handler (addshow :uri "/addshow") ()
     (add-show (make-instance 'show
   			   :name (hunchentoot:post-parameter "name")
   			   :contact-name (hunchentoot:post-parameter "contact-name")
   			   :phone-number (hunchentoot:post-parameter "phone-number")))
     (redirect "/"))
  +
   (define-easy-handler (adduser :uri "/adduser") ()
     (let ((username (hunchentoot:post-parameter "username"))
   	(password (hunchentoot:post-parameter "password"))
  
positive.code: 		       :invoice-name invoice-name
  		       :item-name item-name)
  	*current-message-list*))
  
  (defun find-invoice-from-message (mess)
    (let ((setname (first (message-invoice-name mess)))
  	(showname (second (message-invoice-name mess))))
  
negative.code: 			  :placeholder "Contact Name" :name "inputContact"))
  	    (:button :type "submit" :class "btn btn-default" "Write Show Order"))))))
  
  (defmacro standard-picture-upload ()
    `(with-html-output (*standard-output* nil :indent t)
       (:div :class "panel panel-default"
  	   (:div :class "panel-body"
  		 (:form :action "/displayimagegot"
  			:class "form-inline"
  			:method "POST"
  			:enctype "multipart/form-data"
  			:id "new-picture-upload"
  			(:div :class "form-group"
  			      (:input
  			       :multiple "multiple"
  			       :id "picture-batch"
  			       :name "picture-batch"
  			       :type "file"
  			       
  				      :name "img"
  				      )
  			      (:input :type "submit")))))))
  (defmacro standard-invoice-writing (&key show set contact)
    `(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)
  		      (:li :class "list-group-item list-group-item-success" ,contact))))))
  
  (define-easy-handler (createInvoice :uri "/createInvoice") ()
    (let ((showname (hunchentoot:post-parameter "inputShowname"))
  