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: 		       :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: ;;;Initial Declarations
  
  (defpackage :riley
    (:use :cl
  	:cl-who
  	:cl-pass
  	:hunchentoot
  	:parenscript))
  
  (defvar *current-message-list* '())
  (defvar *global-invoice-list* '())
  (defvar *users* '())
  (defvar *global-invoice-id* 0)
  (defvar *current-show-list* '())
  
  ;;;All predicted data objects neededers
  
  (defclass show ()
  