anchor.diff:     (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)
  
positive.code: 		       :invoice-name invoice-name
  		       :item-name item-name)
  	*current-message-list*))
  (defvar *global-invoice-list* '())
  (defun find-invoice-from-message (mess)
    (let ((setname (first (message-invoice-name mess)))
  	(showname (second (message-invoice-name mess))))
  
negative.code: 		       :order-amount (show-order-amount show-obj)
  		       :list-of-invoices (list-of-invoices show-obj))  *current-show-list* ))
  
  ;;;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
  