anchor.diff:  				    collect post-parameter)))
       (standard-page (:title "Picture Batch")
         (mapc #'(lambda (x)
  -		(format t "~A ~A ~A ~A <br>"  (first x)
  -			(second x)
  -			(third x)
  -			(fourth x))
   		(rename-file (second x)
   			     (concatenate 'string "/tmp/"
   					  (third x)) :if-exists :supersede)
  
positive.code: 	 (setname (invoice-set-name invoice))
  	 (contact (invoice-contact-name invoice))
  	 (change-pic-cookie (cookie-in "current-picture"))
  	 (images (prepare-for-table (cl-fad:list-directory (invoice-root-dir invoice))))
  	 (images-filtered (sort-item-list (filter-already-in-itemlist images invoice) change-pic-cookie)))
      (set-cookie "current-picture" :value  "")
      (standard-page (:title "Order Writeup")
  
negative.code: 	:cl-pass
  	:hunchentoot
  	:parenscript
  	:trivial-shell
  	:opticl))
  
  (defvar *current-message-list* '())
  (defvar *global-invoice-list* '())
  