anchor.diff:  (defun find-invoice (invoicename)
     (find invoicename *global-invoice-list* :test #'string-equal
   	:key #'show-name))
  +
   
   ;;;Create an invoice and and push it onto the *GLOBAL-INVOICE-LIST*
   (defun register-invoice (&key id-num
  
positive.code:   (find name data-lst :test #'string-equal
  	:key #'show-name))
  
  (defun find-show-name-db (name)
    (mito:find-dao 'show-db :name name))
  
  ;;;Provide the function a show-obj and push a new show onto the *CURRENT-SHOW-LIST*
  (defun add-show (show-obj)
  
negative.code:   (standard-page (:title "Login")
  		 (standard-login)))
  
  (define-easy-handler (rotate-image :uri "/rotate-image") (image)
    (let* ((invoice (find-invoice-from-cookie (cookie-in "current-invoice")))
  	 (rotation (/ PI 2))
  	 (root-dir (invoice-root-dir invoice))
  