anchor.diff:  			  (string= showname (show-name x))))
   		   *global-invoice-list*))))
   
  +(defun find-invoice-from-invoice (inv)
  +  (let ((setname (invoice-set-name inv))
  +	(showname (show-name inv)))
  +    (first (remove-if-not (lambda (x)
  +			    (and (string= setname (invoice-set-name x))
  +				 (string= showname (show-name x))))
  +			  *global-invoice-list*))))
  +
   ;;;Search the *GLOBAL-INVOICE-LIST* for INVOICENAME
   (defun find-invoice (invoicename)
     (find invoicename *global-invoice-list* :test #'string-equal
  
positive.code:     (standard-navbar)
      (standard-invoice-writing :show  (fmt "Showname: ~A" (escape-string (hunchentoot:post-parameter "showname")))
  			      :set (fmt "Setname: ~A" (escape-string (hunchentoot:post-parameter "setname")))
  			      :contact (fmt "Contact: ~A" (escape-string (hunchentoot:post-parameter "contact"))))
      (standard-picture-upload))))
  
  (define-easy-handler (signout :uri "/signout") ()
    (set-cookie "current-user" :value "login")
    (redirect "/login"))
  
negative.code: 			       :name "img")
  			      
  			      (:input :type "submit")))))))
  (defmacro standard-invoice-writing (&key show set contact pic-num)
    `(with-html-output (*standard-output* nil :indent t)
       (:div :class "panel panel-default"
  	   (:div :class "panel-body"
  		 (:ul :class "list-group"
  		      (:li :class "list-group-item list-group-item-success" ,show)
  		      (:li :class "list-group-item list-group-item-danger" ,set)
  		      (:li :class "list-group-item list-group-item-success" ,contact)
  		      (:li :class "list-group-item list-group-item-danger" ,pic-num))))))
  
  ;;;Define page handler functions
  
  