anchor.diff:    (standard-page (:title "Login")
   		 (standard-login)))
   
  -(define-easy-handler (rotate-image :uri "/rotate-image") (direction image)
  +(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))
  
positive.code: 					 :data-beloworigin "true"
  					 "Rotate")
  				    (:ul :id "dropdown1" :class "dropdown-content"
  					 (:li (:a :href (format nil "rotate-image?direction=~a&image=~a"
  								"left" ,image)
  						  :class "red-text" (:i :class "material-icons" "rotate_left") "Rotate Left"))
  					 (:li (:a :href (format nil "rotate-image?direction=~a&image=~a"
  								"right" ,image)
  						  :class "red-text" (:i :class "material-icons" "rotate_right") "Rotate Right")))
  				    (:button :type "button" :class "red darken-4 btn waves-effect waves-light"
  					     :data-target "myModal" "Switch")))))))
  
negative.code:   (find name data-lst :test #'string-equal
  	:key #'show-name))
  
  
  ;;;One way to do it that needs more work
  ;;;Alot more work...
  (defmacro find-show-db (&rest args)
    (apply #'mito:find-dao 'show-db args))
  
  (defmacro find-invoice-db (&rest args)
    (apply #'mito:find-dao 'invoice-db args))
  
  (defmacro find-item-db (&rest args)
    (apply #'mito:find-dao 'item-db args))
  
  ;;;Provide the function a show-obj and push a new show onto the *CURRENT-SHOW-LIST*
  (defun add-show (show-obj)
  