anchor.diff:  
   (defclass item-db ()
     ((price :initarg :price
  -	  :accessor :db-item-price
  +	  :accessor db-item-price
   	  :col-type :text)
      (quantity :initarg :quantity
  -	     :accessor :db-item-qty
  +	     :accessor db-item-qty
   	     :col-type :text)
      (description :initarg :description
  -		:accessor :db-item-desc
  +		:accessor db-item-desc
   		:col-type :text)
      (invoice :col-type invoice-db
   	    :initarg :invoice-db
  
positive.code: ;;;Initial Declarations
  (defpackage :riley
    (:use :cl
  	:cl-who
  
negative.code:   ;;;if not then create it and link it to the new set
    (if (not (mito:find-dao 'show-db :name show-name))
        (add-show-to-db :name show-name
  		      :contact contact-name))
        (mito:create-dao 'invoice-db :set-name set-name :date-out "000" :show-db (mito:find-dao 'show-db :name show-name))
  
    (push (make-instance 'invoice
  		       :id-num id-num
  