anchor.diff:  		       :contact-name (show-contact-name show-obj)
   		       :phone-number (show-phone-number show-obj)
   		       :order-amount (show-order-amount show-obj)
  -		       :list-of-invoices (list-of-invoices show-obj))  *current-show-list* ))
  +		       :list-of-invoices (list-of-invoices show-obj))
  +	*current-show-list* ))
   
   ;;;Search *USERS* for USERNAME
   (defun find-user (username)
  
positive.code: 				      (show-name current-invoice)
  				      "-"
  				      (write-to-string (invoice-id-num current-invoice))
  				      ".jpg")))
  
        
        (cl-fad:copy-file (make-pathname :directory temp-image-directory
  				       :name image-name)
  			(make-pathname :directory (concatenate 'string invoice-location "webimg/")
  
negative.code: 		       :contact-name contact-name
  		       :itemlist '()
  		       :root-dir root-dir
  		       :pdf-location pdf-location)
  	*global-invoice-list*))
  
  ;;;USED ALOT.  Lets you find an invoice on the global invoice list
  ;;;from the *showname*-*setname* form of a cookie string.
  