anchor.diff:       (current-date :initarg :current-date
   		   :accessor dashboard-current-date)))
   ;;; Data
  +(defvar *global-invoice-id* 0)
   (defvar *current-show-list* '())
   
   (defun find-show-name (name data-lst)
  
positive.code: 		       :item-name item-name)
  	*current-message-list*))
  
  ;;; Webserver functions and scaffolding
  (setf (html-mode) :html5)
  
  
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 ()
  