anchor.diff:  (defvar *current-show-list* '())
   
   ;;;All predicted data objects neededers
  -
  -(defclass show ()
  -  ((contact-name :initarg :contact-name
  -		 :accessor show-contact-name)
  -   (phone-number :initarg :phone-number
  -		 :accessor show-phone-number)
  -   (order-amount :initarg :order-amount
  -		 :initform 0
  -		 :accessor show-order-amount)
  -   (list-of-invoices :initarg :list-of-invoices
  -		     :initform '()
  -		     :accessor list-of-invoices)
  -   (name :initarg :name
  -	 :accessor show-name)))
   
   (defclass show-db ()
     ((contact :initarg :contact
  
positive.code: 	 :accessor db-show-name
  	 :col-type :text))
    (:metaclass mito:dao-table-class))
  
  (defclass invoice ()
    ((id-num :initarg :id-num
  	   :accessor invoice-id-num)
     (set-name :initarg :set-name
  	     :accessor invoice-set-name)
     (date-out :initarg :date
  	     :initform 0
  	     :accessor invoice-date-out)
     (show-name :initarg :show-name
  	      :accessor show-name)
     (contact-name :initarg :contact-name
  		 :accessor invoice-contact-name)
     (check-in-accounting :initarg :check-in-accounting
  			:accessor invoice-check-in-accounting
  			:initform '())
     (item-list :initarg :itemlist
  	      :accessor invoice-item-list)
     (root-dir :initarg :root-dir
  	     :accessor invoice-root-dir)
     (finalized :initarg :finalized
  	      :accessor invoice-finalized
  	      :initform '())
     (pdf-location :initarg :pdf-location
  		 :accessor invoice-pdf-location)))
  
  (defclass check-in ()
    ((date :initarg :date
  	 :accessor date)
     (invoice-refer :initarg :invoice-refer
  		  :accessor check-in-invoice-refer)
     (checked-by :initarg :checked-by
  	       :accessor check-in-checked-by)
     (show-name :initarg :show-name
  	      :accessor check-in-show-name)
     (checks :initarg :checks
  	   :accessor check-in-checks)))
  
  (defclass item ()
    ((price :initarg :price
  	  :accessor item-price)
     (quantity :initarg :quantity
  	     :accessor item-quantity)
     (description :initarg :description
  		:accessor item-description)
     (invoices-on :initarg :invoices-on
  		:accessor item-invoices-on
  		:initform '())
     (picture    :initarg :pictures
  	       :accessor item-picture)
     (shows-on :initarg :shows-on
  	     :accessor item-shows-on
  	     :initform '())
     (returned-qty :initarg :returned-qty
  		 :accessor item-returned-qty)
     (notes :initarg :notes
  	  :accessor item-notes
  	  :initform '())
     (returned-on :initarg :returned-on
  		:accessor item-returned-on)))
  
  
  (defclass invoice-db ()
    ((set-name :initarg :set-name
  
negative.code: 
  
  ;;;Create an invoice and and push it onto the *GLOBAL-INVOICE-LIST*
  (defun register-invoice (&key 
  			   set-name
  			   show-name
  			   contact-name
  