anchor.diff:  		 (:button :type "submit"
   			  :class "btn btn-primary"
   			  "Create Show")))))
  +
   (define-easy-handler (addshow :uri "/addshow") ()
     (add-show (make-instance 'show
   			   :name (hunchentoot:post-parameter "name")
   			   :contact-name (hunchentoot:post-parameter "contact-name")
   			   :phone-number (hunchentoot:post-parameter "phone-number")))
     (redirect "/"))
  +
   (define-easy-handler (adduser :uri "/adduser") ()
     (let ((username (hunchentoot:post-parameter "username"))
   	(password (hunchentoot:post-parameter "password"))
  
positive.code: 	    (:body
  	    
  	     ,@body))))
  
  (defmacro standard-navbar ()
    `(with-html-output (*standard-output* nil :indent t)
  
negative.code: 		       :invoice-name invoice-name
  		       :item-name item-name)
  	*current-message-list*))
  (defvar *global-invoice-list* '())
  (defun find-invoice-from-message (mess)
    (let ((setname (first (message-invoice-name mess)))
  	(showname (second (message-invoice-name mess))))
  