anchor.diff:  						     (invoice-item-list invoice))))
       (redirect "/setthemcookies")))
   
  +(defmacro web-math (&key func a b)
  +  `(write-to-string (,func (parse-integer ,a) (parse-integer ,b))))
  +
  +(defun web-math-add (a b)
  +  (web-math :func +
  +	    :a a
  +	    :b b))
  +
  +(defun web-math-subtract (a b)
  +  (web-math :func -
  +	    :a a
  +	    :b b))
  +
   (define-easy-handler (partial-check-in :uri "/partial-check-in") (qty desc price)
     (let* ((rtn (escape-string (hunchentoot:post-parameter "ranged")))
   	 (invoice (find-invoice-from-cookie (cookie-in "current-invoice")))
  
positive.code: 			 :quantity qty
  			 :price price
  			 :pictures image
  			 :returned-on "")
  	  (invoice-item-list invoice)))
    (redirect "/setthemcookies"))
  
  
negative.code: 				(:div :class "card-content"
  				      (:span 
  				       (:i :class "material-icons" "attach_money") (fmt "~A" (escape-string (item-price item)))					    
  				       (:a :href "#" :class "right black-text" (:i :class "material-icons" "all_inclusive") (fmt " ~A/~A &emsp;"
  																 (escape-string (item-returned-qty item))
  																 (escape-string (item-quantity item))))))
  				
  				(:div :class "card-action"
  				      
  