anchor.diff:  				(: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 &emsp;" (escape-string (item-quantity 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"
   				      
  
positive.code: 			 :quantity qty
  			 :price price
  			 :pictures image
  			 :returned-on "")
  	  (invoice-item-list invoice)))
    (redirect "/setthemcookies"))
  
  
negative.code: 						(string= price (item-price x))
  						(string= qty (item-quantity x))))
  				       (invoice-item-list invoice)))))
      (cond
        ((string= (item-quantity item-r) (web-math-add (item-returned-qty item-r) rtn))
         (multiple-value-bind
  	  (second minute hour date month year)
  	(get-decoded-time)
        (setf (item-returned-on item-r)
  	    (format nil "~d/~d" month date))))
        (t
         (setf (item-returned-qty item-r) (web-math-add (item-returned-qty item-r) rtn)))))
        (redirect "/check-in-set"))
  
  ;;;Standard check in page that displays a table of shows with invoices
  
  