anchor.diff:  			      :contact (fmt "Contact: ~A" (escape-string contact))
   			      :pic-num (fmt "~A" (escape-string (count-pics-from-invoice (concatenate 'string showname
      									      "-" setname)))))
  -    (standard-item-writeup :image (first images))
  +    (standard-item-writeup :image (first images-filtered))
       (standard-picture-upload)
  -    (standard-picture-table :image-list (rest images)))))
  +    (standard-item-list-table :invoice invoice)
  +    (standard-picture-table :image-list (rest images-filtered)))))
   
   ;;;Remove the absolute pathname and limit it to the show-bank directory
   ;;;Probably needs to be reworked entirely
  
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: 			(:input :type "hidden" :id "image-data" :name "image-data" :value ,image)
  			(:br)
  			(:button :type "submit" :class "btn btn-default" "Add item"))))))
       
  			      
  				      
  (defmacro standard-order-intro ()
  