anchor.diff:  				       (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))))
  +	    (current-date-string)))
         (t
          (setf (item-returned-qty item-r) (web-math-add (item-returned-qty item-r) rtn))
          (add-note-item item-r
  -		      (multiple-value-bind
  -			    (second minute hour date month year)
  -			  (get-decoded-time)
  -			(format nil "~d/~d" month date))
  +			(current-date-string)
   		      rtn))))
         (redirect "/check-in-set"))
   
  
positive.code: 				     (:a :href "#" "Check In")))))))))))
  
  ;;;gensym portion probably needs to be changed
  (defmacro standard-item-writeup (&key image full-images invoice-data)
    `(with-html-output (*standard-output* nil :indent t)
       (:div :class "section"
  	   (:div :class "row blue-grey"
  
negative.code: 					;(:script :src "js/ajax-item.js")
  	     (:script :src "js/materialize.min.js")
  	     (:link :href "https://fonts.googleapis.com/icon?family=Material+Icons" :rel "stylesheet")
  	     (:script :src "plugins/jq-input.js")
  	     (:title ,title))
  	    
  	    (:body 
  	     ,@navbar		   	       
  