anchor.diff:  
   (defun register-user (&key username password)
     (mito:create-dao 'user-db 
  -		       :name username
  -		       :password password
  -		       :rank "user"))
  +		   :name username
  +		   :password password
  +		   :rank "user"))
   
   (defun add-show-to-db (&key name contact)
     (mito:create-dao 'show-db :name name :contact contact :phone-number "000"))
  
positive.code:   (if (not (mito:find-dao 'show-db :name show-name))
        (add-show-to-db :name show-name
  		      :contact contact-name))
        (mito:create-dao 'invoice-db :set-name set-name :date-out "000" :show-db (mito:find-dao 'show-db :name show-name) :root-dir root-dir :pdf-location (subseq pdf-location 71)))
  
  (defun find-invoice-from-cookie (id)
    (find-invoice-db :id (parse-integer id)))
  
negative.code: 				"/" (directory-safe setname) "/")))
      (ensure-directories-exist root-dir)
      (register-invoice 
       :set-name setname
       :show-name showname
       :contact-name contact
       :root-dir root-dir
       :pdf-location (directory-safe (concatenate 'string root-dir "pdf/" showname "-" setname ".pdf")))
      (redirect "/dashboard")))
  
  ;;;Basic function to create a new show		      
  (define-easy-handler (write-order :uri "/write-order") ()
    (standard-page (:title "Write Order")
      (:navbar (test-navbar))
      (standard-order-intro)))
  
  ;;;Adds a message to the global message list
  ;;;This can be a notification for a new order/show/invoice
  