anchor.diff:  			   set-name
   			   show-name
   			   contact-name
  -			   root-dir)
  +			   root-dir
  +			   pdf-location)
     (push (make-instance 'invoice
   		       :id-num id-num
   		       :set-name set-name
   		       :show-name show-name
   		       :contact-name contact-name
   		       :itemlist '()
  -		       :root-dir root-dir) *global-invoice-list*))
  +		       :root-dir root-dir
  +		       :pdf-location pdf-location) *global-invoice-list*))
   
   ;;; Webserver functions and scaffolding
   ;;;Set HTML5 preamble
  
positive.code:   (mapcar #'(lambda (x)
  	      (item-picture x))
  	  (invoice-item-list invoice)))
  
  (define-easy-handler (createpdf :uri "/createpdf") ()
    (let* ((invoice (find-invoice-from-cookie (cookie-in "current-invoice")))
  
negative.code: 		    (dolist (image ,image-list)
  		      (htm (:div :class "col-md-3 col-sm-4 col-xs-6"
  				 (:img :src image :class "img-responsive"))))))))
  (defmacro standard-check-in-showlist ()
    `(with-html-output (*standard-output* nil :indent t)
       (:div :class "container panel panel-default"
  	   (:table :class "table table-bordered table-striped"
  		   (:thead
  		    (:tr
  		     (:th "Show Name")
  		     (:th "Set Name")
  		     (:th "Contact")
  		     (:th "Check In")))
  		   (:tbody
  		    (dolist (invoice *global-invoice-list*)
  		      (htm
  		       (:tr
  			(:td (fmt "~A" (escape-string (show-name invoice))))
  			(:td (fmt "~A" (escape-string (invoice-set-name invoice))))
  			(:td (fmt "~A" (escape-string (invoice-contact-name invoice))))
  			(:td (:form :class "form-inline"
  				    :action "/check-in-set"
  				    :method "POST"
  				    :id "item-table"
  				    (:input :type "hidden" :value (invoice-set-name invoice)
  					    :name "setname" :id "setname")
  				    (:button :type "submit" :class "btn btn-default btn-sm btn-info"
  					     "Check In")))))))))))
  (defmacro standard-item-list-table (&key invoice)
    `(with-html-output (*standard-output* nil :indent t)
       (:div :class "container panel panel-default"
  