anchor.diff:  		       (:ul :class "nav navbar-nav"
   			    (:li (:a :href "/dashboard" "Timeline"))
   			    (:li (:a :href (concatenate 'string "/profile/" (cookie-in "current-user"))  "Profile"))
  -			    (:li (:a :href "/write-order" "Write Order")))
  +			    (:li (:a :href "/write-order" "Write Order"))
  +			    (:li (:a :href "/check-in-order" "Check-in Order")))
   		       (:ul :class "nav navbar-nav navbar-right"
   			    (:li (:a :href "/signout" "Sign out"))
   			    (:li (:a :href "/checkinlist" "Check In"))))))))
  -(defmacro test-sidebar ()
  -  `(with-html-output (*standard-output* nil :indent t)
  -     (: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: 						     (invoice-item-list invoice))))
    (redirect "/setthemcookies"))
  
  (defun filter-already-in-itemlist (images invoice)
    (let ((itemlist (itemlist-image-location invoice)))
      (set-difference images itemlist
  		    :test #'string=)))
  
  (defun itemlist-image-location (invoice)
    (mapcar #'(lambda (x)
  	      (item-picture x))
  	  (invoice-item-list invoice)))
  
  (define-easy-handler (checkinlist :uri "/checkinlist") ()
    (standard-page (:title "Check in list")
      (standard-navbar)
      (standard-check-in-showlist)))
  
  (define-easy-handler (check-in-set-pre :uri "/check-in-set-pre") ()
      (let* ((showname (hunchentoot:post-parameter "showname"))
  	   (setname (hunchentoot:post-parameter "setname")))
        (set-cookie "current-invoice" :value (concatenate 'string showname "-" setname))
        (redirect "/check-in-set")))
  
  (define-easy-handler (checkinset :uri "/check-in-set") ()
    (let* ((invoice (find-invoice-from-cookie (cookie-in "current-invoice")))
  	(showname (show-name invoice))
  
negative.code: 	       (item-price b) "}{"
  	       (item-returned-on b) "}"))
      
  ;;;Alot of the latex code was ported from the racket version and has already been tested alot
  ;;;Shouldn't need to mess with this at all unless I'm adding note taking abilities
  ;;;--------------------------------------------------------------------
  