anchor.diff:  		       :id "collapsible"
   		       (:ul :class "nav navbar-nav"
   			    (:li (:a :href "/dashboard" "Timeline"))
  -			    (:li (:a :href (concatenate 'string "/profile/" (cookie-in "current-user"))  "Profile")))
  +			    (:li (:a :href (concatenate 'string "/profile/" (cookie-in "current-user"))  "Profile"))
  +			    (:li (:a :href "/write-order" "Write Order")))
   		       (:ul :class "nav navbar-nav navbar-right"
   			    (:li (:a :href "/signout" "Sign out"))))))))
   
  
positive.code: 
  (define-easy-handler (dashboard :uri "/dashboard") ()
    (let ((username (cookie-in "current-user")))
      (if (not (string= username "login"))
    (standard-page (:title "Dashboard")
      (standard-navbar)
      (standard-dashboard :messages (standard-global-messages)))
  
negative.code: 		 (:h4 :class "media-heading"
  		      (:a :href (concatenate 'string "/profile/" (message-sender messages))
  			  (fmt "~A" (escape-string (message-sender messages)))))
  		 (fmt "~A" (escape-string (message-content messages)))))))))
  
  (defmacro standard-order-intro ()
    `(with-html-output (*standard-output* nil :indent t)
       (:div :class "panel panel-default"
  	   (:div :class "panel-body" (:form :class "form-inline"
  	    :action "/createInvoice"
  	    :method "POST"
  	    :id "New-invoice-form"
  	    (:div :class "form-group"
  		  (:label :for "inputShow" "Show")
  		  (:input :type "text" :class "form-control" :id "inputShowname"
  			  :placeholder "Showname"))
  	    (:div :class "form-group"
  		  (:label :for "inputSet" "Set")
  		  (:input :type "text" :class "form-control" :id "inputSetname"
  			  :placeholder "Set Name"))
  	    (:div :class "form-group"
  		  (:label :for "inputContact" "Contact Name")
  		  (:input :type "text" :class "form-control" :id "inputContact"
  			  :placeholder "Contact Name"))
  	    (:button :type "submit" :class "btn btn-default" "Write Show Order"))))))
  
  (define-easy-handler (createInvoice :uri "/createInvoice") ()
      (redirect "/dashboard"))
  (define-easy-handler (write-order :uri "/write-order") ()
    (standard-page (:title "Write Order")
      (standard-navbar)
      (standard-order-intro)))
  
  (define-easy-handler (addmessage :uri "/addmessage") ()
    (let ((username (cookie-in "current-user"))
  