anchor.diff:  					 :data-beloworigin "true"
   					 "Rotate")
   				    (:ul :id "dropdown1" :class "dropdown-content"
  -					 (:li (:a :href (format nil "rotate-image?direction=~a&image=~a"
  -								"left" ,image)
  +					 (:li (:a :href (format nil "rotate-image?image=~a"
  +								 ,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)
  +					 (:li (:a :href (format nil "rotate-image?image=~a"
  +								 ,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")))))))
  
positive.code:   (standard-page (:title "Login")
  		 (standard-login)))
  
  (define-easy-handler (rotate-image :uri "/rotate-image") (direction image)
    (let* ((invoice (find-invoice-from-cookie (cookie-in "current-invoice")))
  	 (rotation (/ PI 2))
  	 (root-dir (invoice-root-dir invoice))
  
negative.code: (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
  