anchor.diff:  
   (defmacro standard-item-writeup (&key image full-images invoice-data)
     `(with-html-output (*standard-output* nil :indent t)
  -     (:div :class "panel panel-default login-panel"
  +    
   	   (:div :class "box"
   		 
   		 (:div :class "box-header"
   		       (:center (:img :src ,image :class "img-responsive"
   				      :width "40%" :height "40%")))
  -		 (:div :class  "box-body"
  +		 (:div :class  "box-body" 
   		 (:form 
   			:action "/additem"
   			:method "POST"
  
positive.code: 		   (:div :class "content-wrapper"
  			 (:section :class "content"
  	     ,@body))))))
  
  (defmacro standard-login ()
    `(with-html-output (*standard-output* nil :indent t)
  
negative.code: 	 (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)))
      
   ; (standard-page (:title "Order Writeup")
    
   ;   (:navbar (test-navbar))
   ;   (standard-picture-upload)
   ;   (standard-invoice-writing :show  (fmt "Showname: ~A" (escape-string showname))
  ;			      :set (fmt "Setname: ~A" (escape-string setname))
  ;			      :contact (fmt "Contact: ~A" (escape-string contact))
  ;			      :pic-num (fmt "~A" (escape-string (count-pics-from-invoice (concatenate 'string showname
      									 ;     "-" setname)))))
    ;  (standard-item-writeup :image (first images-filtered)
  ;			   :full-images (rest images-filtered)
  ;			   :invoice-data invoice)
   ;   (standard-item-list-table :invoice invoice)
    ;  (standard-pdf-iframe :pdf (invoice-pdf-location invoice))
  					; (standard-picture-table :image-list (rest images-filtered)))))
      (set-cookie "current-picture" :value  "")
      (standard-page (:title "Order Writeup")
        (:navbar (test-navbar))
        (standard-three-nine-hook
  	    (:bodythree
  		((standard-invoice-writing :show  (fmt "Showname: ~A" (escape-string showname))
  				   :set (fmt "Setname: ~A" (escape-string setname))
  				   :contact (fmt "Contact: ~A" (escape-string contact))
  				   :pic-num (fmt "~A" (escape-string (count-pics-from-invoice (concatenate 'string showname
  													   "-" setname)))))
  		 (standard-picture-upload)))
  	        
  	(standard-item-writeup :image (first images-filtered)
  			       :full-images (rest images-filtered))
  	(standard-item-list-table :invoice invoice)
  	(standard-pdf-iframe :pdf (invoice-pdf-location invoice))
  	(standard-picture-table :image-list (rest images-filtered))))))
  
  (defun sort-item-list (itemlist pic-need)
    (if (string= pic-need "")
        itemlist
        (cons (first (remove-if-not #'(lambda (x)
  			       (equal x pic-need))
  