anchor.diff:  			     :method "POST"
   			     (:input :type "hidden" :name "showname" :value (show-name (find-invoice-from-message messages)))
   			     (:input :type "hidden" :name "setname" :value (invoice-set-name (find-invoice-from-message messages)))
  +			     (:input :type "hidden" :name "contact" :value (invoice-contact-name (find-invoice-from-message messages)))
   		 (:button :type "submit" :class "btn btn-default" "Write Order"))))))))))
   
   (defmacro standard-order-intro ()
  
positive.code: 
  
  			 
  (defvar *global-invoice-list* '())
  
  (defun find-invoice (invoicename)
    (find invoicename *global-invoice-list* :test #'string-equal
  
negative.code: 	    (:body
  	    
  	     ,@body))))
  (defvar *global-invoice-list* '())
  
  ;;; Standard Page Macros
  
  (defmacro standard-navbar ()
    `(with-html-output (*standard-output* nil :indent t)
  