anchor.diff:  			    (:li (:a :href "/checkinlist" "Check In"))))))))
   (defmacro test-sidebar ()
     `(with-html-output (*standard-output* nil :indent t)
  -     (:div :id "wrapper"
  -	   (:div :id "sidebar-wrapper"
  -		 (:ul :class "sidebar-nav"
  -		      (:li :class "sidebar-brand"
  -			   (:a :href "#"
  -			       "RILEY"))
  -		      (:li
  -		       (:a :href "/dashboard"
  -			   "Dashboard")))))))
  +     (:div :id "nav-side-menu"
  +	   (:div :class "brand" "RILEY")
  +	   (:i :class "fa fa-bars fa-2x toggle-btn" :data-toggle "collapse"
  +	       :data-target "menu-content")
  +	   (:div :class "menu-list"
  +		 (:ul :id "menu-content" :class "menu-content collapse out"
  +		      (:li (:a :href "#"
  +			       (:i :class "fa fa-dashboard fa-lg") "Dashboard"))
  +		      (:li :data-toggle "collapse" :data-target "#writeorder" :class "collapsed active"
  +			   (:a :href "#" (:i :class "fa fa-gift fa-lg") "UI Elements" (:span :class "arrow"))))))))
   
   (defmacro standard-dashboard (&key messages)
     `(with-html-output (*standard-output* nil :indent t)
  
positive.code: 	     (:meta :name "viewport" :content "width=device-width, initial-scale=1")
  	     (:link :rel "stylesheet"
  		    :type "text/css"
  		    :href "css/bootstrap.css")
  	     (:title ,title)
  	     (:link :type "text/css"
  		    :rel "stylesheet"
  		    :href "css/bootstrap-theme.css")
  	     (:link :type "text/css"
  		    :rel "stylesheet"
  		    :href "css/style.css")
  	     (:link :type "text/css"
  		    :rel "stylesheet"
  		    :href "css/simple-sidebar.css"))
  	    (:body
  	    
  	     ,@body))))
  
negative.code: 	 (images-filtered (filter-already-in-itemlist images invoice)))
      
    (standard-page (:title "Order Writeup")
      (standard-navbar)
      (standard-invoice-writing :show  (fmt "Showname: ~A" (escape-string showname))
  			      :set (fmt "Setname: ~A" (escape-string setname))
  			      :contact (fmt "Contact: ~A" (escape-string contact))
  