anchor.diff:  ;;;before sending it to the write-order page
   (defun filter-already-in-itemlist (images invoice)
     (let ((itemlist (itemlist-image-location invoice)))
  -    (set-difference images itemlist
  +    (filter-multi-pic (set-difference images itemlist
  +				      :test #'string=) invoice)))
  +
  +(defun filter-multi-pic (images invoice)
  +  (let ((itemlist (mito:retrieve-dao 'multi-pic :item (find-item-db :invoice (mito:find-dao 'invoice-db  :set-name (db-set-name invoice))))))
  +    (set-difference images (mapcar #'(lambda (x)
  +				       (multi-picture x))
  +				   itemlist)
   		    :test #'string=)))
  -
   ;;;Helper function for grabbing image location
   (defun itemlist-image-location (invoice)
     (mapcar #'(lambda (x)
  
positive.code: 		    (:div :id "modalPics" :class "col s12 m6 l6"
  			  (:div :class "card"
  				(:div :class "card-content"
  			  (:form :action "/swapitemposition"
  				 :method "POST"
  				 (:input :type "hidden" :id "image-name"
  					 :name "image-name" :value img)
  				 (:input :type "image" :id "saveform" :class "img-responsive"
  					 :width "100%" :height "50%" :src img
  					 :alt "Submit Form")))
  				(:div :class "card-action"
  				      (:form :action "#" :id "modalCheck"
  					     (:p
  					      (:input :type "checkbox" :id img)
  					      (:label :for img "Select"))))))
  				(:div :id "modalFoot" :class "modal-footer"))))
  	   (:script "$(document).ready(function(){ $('.modal').modal(); });"))))
  
  (defmacro standard-order-intro ()
  
negative.code:     ((> (length lst) 1) (list (list (car lst) (cadr lst)) (pair-off (cddr lst))))
      ((<= (length lst) 1) (list (car lst) '()))))
  
  (defmacro standard-multi-pic (&key full-images item-desc item-price item-qty)
    `(with-html-output (*standard-output* nil :indent t)
       (:div :class "section"
  	   (:form :action "/multi-pic-handler"
  		  :method "POST"
  		  (:input :type "hidden" :name "itemdesc" :id "itemdesc" :value ,item-desc)
  		  (:input :type "hidden" :name "itemprice" :id "itemprice" :value ,item-price)
  		  (:input :type "hidden" :name "itemqty" :id "itemqty" :value ,item-qty)
  		  
  		  (:div :class "row"
  			(dolist (img ,full-images)
  			  (htm
  			   (:div :class "col s12 m6 l6"
  				 (:div :class "card"
  				       (:div :class "card-image"
  					     (:img  :src (escape-string (concatenate 'string img)) :class "materialboxed"))
  				       (:div :class "card-action"
  					     (:p
  					      (:input :type "checkbox" :id img :value img :name "checkbox[]")
  					      (:label :for img "Select"))
  					     (:input :type "hidden" :id img
  						     :name img :value img)
  					     (:button :type "submit" :class "btn" "Submit")))))))))))
  
  
  ;;;gensym portion probably needs to be changed
  (defmacro standard-item-writeup (&key image full-images)
  