anchor.diff:        '()
         (concatenate 'string (car notes) "\\\\"
   		   (concat-notes (cdr notes)))))
  -      
  +
   (defun subseq-img (b)
     (if (null b)
         ""
  
positive.code: 				       (invoice-item-list invoice)))))
      (cond
        ((string= (item-quantity item-r) (web-math-add (item-returned-qty item-r) rtn))
        (setf (item-returned-on item-r)
  	    (current-date-string)))
        (t
         (setf (item-returned-qty item-r) (web-math-add (item-returned-qty item-r) rtn))
         (add-note-item item-r
  			(current-date-string)
  		      rtn))))
        (redirect "/check-in-set"))
  
  (defun add-note-item (item date amt)
    (if (already-note-p item date)
  
negative.code: 
  (defun already-note-p (item date)
    (let ((check (remove-if-not #'(lambda (x)
  				  (string= (funcall x :tag) date))
  			      (item-notes item))))
      (if (null check)
  	'()
  