anchor.diff:  ;;;Initial Declarations
  -
   (defpackage :riley
     (:use :cl
   	:cl-who
  
positive.code: 		  (:input :type "text" :class "form-control" :id "inputContact"
  			  :placeholder "Contact Name" :name "inputContact"))
  	    (:button :type "submit" :class "btn btn-default" "Write Show Order"))))))
  (defmacro standard-picture-table (&key image-list)
    `(with-html-output (*standard-output* nil :indent t)
       (:div :class "container"
  	   (:div :class "row"
  		    (dolist (image ,image-list)
  		      
  		      (htm (:div :class "col-md-3 col-sm-4 col-xs-6"
  				    (:img :src image :class "img-responsive"))))))))
  				
  			      
  (defmacro standard-picture-upload ()
    `(with-html-output (*standard-output* nil :indent t)
       (:div :class "panel panel-default"
  
negative.code: 					  (third x)))
  		(move-image-to-invoice-dir x))
  		     
  	    whatever)))
    (redirect "/setthemcookies"))
  
  (defun find-invoice-from-cookie (invoice-string)
    (if (not (string= "none" invoice-string))
  