anchor.diff:  		       :order-amount (show-order-amount show-obj)
   		       :list-of-invoices (list-of-invoices show-obj))  *current-show-list* ))
   
  -(defvar *users* '())
  -
  +;;;Search *USERS* for USERNAME
   (defun find-user (username)
     (find username *users* :test #'string-equal
   	:key #'user-name))
   
  +;;;Create a user from a USERNAME and PASSWORD and push onto *USERS*
   (defun register-user (&key username password)
     (push (make-instance 'user
   		       :name username
  
positive.code:    (name :initarg :name
  	 :accessor show-name)))
  
  (defun make-show (&key contact-name-t phone-number-t
  		    order-amount-t list-of-invoices-t
  		    name-t )
    (make-instance 'show
  		 :name name-t
  		 :contact-name contact-name-t
  		 :phone-number phone-number-t
  		 :order-amount order-amount-t
  		 :list-of-invoices list-of-invoices-t))
  (defclass invoice ()
    ((id-num :initarg :id-num
  	      :accessor invoice-id-num)
  
negative.code: 	    :accessor dashboard-posts)
       (current-date :initarg :current-date
  		   :accessor dashboard-current-date)))
  
  ;;; Helper functions for classes
  
  ;;;Create a show, doesn't appear to be used at the moment.
  (defun make-show (&key contact-name-t phone-number-t
  		    order-amount-t list-of-invoices-t
  		    name-t )
    (make-instance 'show
  		 :name name-t
  		 :contact-name contact-name-t
  		 :phone-number phone-number-t
  		 :order-amount order-amount-t
  		 :list-of-invoices list-of-invoices-t))
  
  ;;;Using a string NAME search for SHOW-NAME in DATA-LST
  (defun find-show-name (name data-lst)
    (find name data-lst :test #'string-equal
  	:key #'show-name))
  
  ;;;Provide the function a show-obj and push a new show onto the *CURRENT-SHOW-LIST*
  (defun add-show (show-obj)
    (push (make-instance 'show
  		       :name (show-name show-obj)
  