anchor.diff:  
   (defmacro standard-check-in (&key invoice)
     `(with-html-output (*standard-output* nil :indent t)
  -     (:div :class "panel panel-default"
  -	   (:div :class "panel-body"
  -		 (:table :class "table"
  +     (:div :class "box"
  +	   (:div :class "box-body"
  +		 (:table :id "checkinlist" :class "table table-bordered table-striped"
   			 (:thead
   			  (:tr
   			   (:th "Picture")
   			   (:th "Description")
  -			   (:th "Quantity")
  +			   (:th "QTY")
   			   (:th "Price")
  -			   (:th "Check in?")))
  +			   (:th "Check?")))
   			 (:tbody
   			  (dolist (item (remove-returned (invoice-item-list ,invoice)))
   			    (htm
  +		
   			     (:tr
  -			      (:td (:img :src (item-picture item) :class "img-responsive"))
  +			      (:td (:a :class "fancybox"
  +				       :id "fancybox"
  +				       :rel "gallery1"
  +				       :href (item-picture item)
  +				       (:img :src (item-picture item) :class "img-responsive")))
  +					       
   			      (:td (fmt "~A" (escape-string (item-description item))))
   			      (:td (fmt "~A" (escape-string (item-quantity item))))
   			      (:td (fmt "~A" (escape-string (item-price item))))
  
positive.code: 	(showname (show-name invoice))
  	(setname (invoice-set-name invoice)))
        (standard-page (:title (concatenate 'string "Check in: " showname "-" setname))
  	(standard-navbar)
  	(standard-check-in :invoice invoice))))
  
  ;;;Provides all the abstraction for generating a pdf from an invoice
  ;;;as long as a valid invoice is sent
  
negative.code: 
  (defmacro standard-pdf-iframe (&key pdf)
    `(with-html-output (*standard-output* nil :indent t)
       (:div :class "box box-default"
  	   (:div :class "box-header with-border"
  		 "PDF"
  	   (:div :class "box-tools pull-right"
  		 (:button :class "btn btn-box-tool" :data-widget "collapse" (:i :class "fa fa-plus"))))
  	   (:div :class "box-body"
  	   (:iframe :id "iframepdf"
  		    :height "600"
  		    :width "100%"
  		    :src ,pdf)))))
  
  (defmacro standard-invoice-writing (&key show set contact pic-num)
    `(with-html-output (*standard-output* nil :indent t)
  