anchor.diff:  	   (:div :class "row blue-grey"
   		 (:div :class "col s12 m6 l6"
   		       (:div :class "card"
  -			    
  -				   (if (null ,image)
  -				       (htm (:div :class "card-title" (:p :class "center" "No pictures available")))
  -				       (htm  (:div :class "card-image"
  -						   (:img :id "input-picture" :src (escape-string (concatenate 'string ,image "?gensym=" (string (gensym)))) :class  "materialboxed responsive-img" :name ,image))))))
  +			     
  +			     (if (null ,image)
  +				 (htm (:div :class "card-title" (:p :class "center" "No pictures available")))
  +				 (htm  (:div :class "card-image"
  +					     (:img :id "input-picture" :src (escape-string (concatenate 'string ,image "?gensym=" (string (gensym)))) :class  "materialboxed responsive-img" :name ,image))))))
   		 (:div :class "col s12 m6 l6"
   		       
   		       (:div :class "card" :id "box-picture"
  
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.
  