anchor.diff:  
   (defmacro standard-item-writeup (&key image)
     `(with-html-output (*standard-output* nil :indent t)
  -     (:div :class "panel panel-default"
  +     (:div :class "panel panel-default col-md-6 col-md-push-1"
   	   (:div :class "panel-body"
   		 (:div :class "col-md-3 col-sm-4 col-xs-6"
   				    (:img :src ,image :class "img-responsive"))
  
positive.code: 		       :set-name set-name
  		       :show-name show-name
  		       :contact-name contact-name
  		       :root-dir root-dir) *global-invoice-list*))
  
  ;;; Webserver functions and scaffolding
  
negative.code: 
  (defmacro standard-picture-table (&key image-list)
    `(with-html-output (*standard-output* nil :indent t)
       (:div :class "container panel panel-default col-md-6 col-md-push-1"
  	   (:div :class "row"
  		    (dolist (image ,image-list)
  		      (htm (:div :class "col-md-3 col-sm-4 col-xs-6"
  				 (:img :src image :class "img-responsive"))))))))
  
  (defmacro standard-item-list-table (&key invoice)
    `(with-html-output (*standard-output* nil :indent t)
       (:div :class "container panel panel-default col-md-6
  col-md-push-1"
  	  (:table :class "table table-bordered table-striped"
  		 (:thead
  		 
  		  (:tr
  		   (:th "Description")
  		   (:th "Price")
  		   (:th "Quantity")
  		   (:th "Remove?")))
  		 (:tbody
  		  (dolist (item (invoice-item-list ,invoice))
  		    (htm
  		     (:tr
  		      
  		      (:td (fmt "~A" (escape-string (item-description item))))
  		      (:td (fmt "~A" (escape-string (item-price item))))
  		      (:td (fmt "~A" (escape-string (item-quantity item))))
  		      (:td (:form :class "form-inline"
  			     :action "/removeitem"
  			     :method "POST"
  			     :id "item-table"
  			     (:input :type "hidden" :value (item-description item)
  				     :name "item" :id "item")
  			     (:input :type "hidden" :value (item-price item)
  				     :name "item-price" :id "item-price")
  			     (:input :type "hidden" :value (item-quantity item)
  				     :name "item-quantity" :id "item-quantity")
  			     (:input :type "hidden" :value ,invoice
  				     :name "invoice" :id "invoice")
  			     (:button :type "submit" :class "btn btn-default btn-sm btn-danger" "Remove")))))))))))
  			     
  		      
  (defmacro test-left-side ()
    `(with-html-output (*standard-output* nil :indent t)
       (:div :class "col-md-6"
  	   (:h1 "Hello world"))))
  (defmacro standard-picture-upload ()
    `(with-html-output (*standard-output* nil :indent t)
       (:div :class "panel panel-default col-md-6 col-md-push-1"
  	   (:div :class "panel-body"
  		 (:h3 "Upload pictures to this order:")
  		 (:form :action "/displayimagegot"
  