anchor.diff:  			 :quantity qty
   			 :price price
   			 :pictures image
  -			 :returned-on "")
  +			 :returned-on ""
  +			 :returned-qty "0")
   	  (invoice-item-list invoice)))
     (redirect "/setthemcookies"))
   
  
positive.code: 				      (:form :action (concatenate 'string "/partial-check-in?qty=" (item-quantity item) "&desc=" (item-description item) "&price=" (item-price item))
  					     :method "POST"
  					     (:p :class "range-field"
  						 (:input :id "ranged" :name "ranged" :type "range" :min "0" :max (item-quantity item) :oninput "this.form.rangedName.value=this.value"))
  					     (:input :class "left" :type "number" :name "rangedName" :min "0" :max (item-quantity item) :value (item-quantity item) :oninput "this.form.ranged.value=this.value")
  					     
  					     (:button :type "submit"  :class "right red darken-4 btn-floating" (:i :class "material-icons" "arrow_downward")))))))))))
       
  
negative.code: (defun prepare-for-table (fad-list)
    (mapcar #'(lambda (x)
  	      (let ((string-path-image (namestring x)))
  		(subseq (namestring string-path-image) 69)))
  	  (remove-if #'(lambda (x)
  			 (cl-fad:directory-exists-p x))
  		     fad-list)))
  