anchor.diff:  
   ;;;One way to do it that needs more work
   ;;;Alot more work...
  -(defmacro find-show-db (&rest args)
  +(defun find-show-db (&rest args)
     (apply #'mito:find-dao 'show-db args))
   
  -(defmacro find-invoice-db (&rest args)
  +(defun find-invoice-db (&rest args)
     (apply #'mito:find-dao 'invoice-db args))
   
   (defmacro find-item-db (&rest args)
  
positive.code: ;;;Need to rewrite so defintions are in the URL for reloading to work
  (define-easy-handler (setthemcookies :uri "/setthemcookies") ()
    (let* ((invoice (find-invoice-from-cookie (cookie-in "current-invoice")))
  	 (showname (show-name invoice))
  	 (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
  				     (concatenate 'string (invoice-root-dir invoice) "webimg/"))))
  
negative.code: 		    (standard-item-writeup :image (first images-filtered)
  					   :full-images (rest images-filtered))
  		    (standard-item-list-table :invoice invoice)
  		    (standard-pdf-iframe :pdf "")))))
  
  
  (defun sort-item-list (itemlist pic-need)
  