anchor.diff:  (defun prepare-for-table (fad-list)
     (mapcar #'(lambda (x)
   	      (let ((string-path-image (namestring x)))
  -		(subseq (namestring string-path-image) 53)))
  +		(subseq (namestring string-path-image) 69)))
   	  (remove-if #'(lambda (x)
   			 (cl-fad:directory-exists-p x))
   		     fad-list)))
  
positive.code: 						     (invoice-item-list invoice))))
      (redirect "/setthemcookies")))
  
  (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")))
  
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"
  				      
  