anchor.diff:     (pdf-location :initarg :pdf-location
   		 :accessor invoice-pdf-location)))
   
  +(defclass invoice-db ()
  +  ((set-name :initarg :set-name
  +	     :accessor db-set-name
  +	     :col-type :text)
  +   (date-out :initarg :date-out
  +	     :accessor db-date-out
  +	     :col-type :text)
  +   (show :col-type show-db
  +	 :initarg :show-db
  +	 :accessor invoice-show))
  +  (:metaclass mito:dao-table-class))
  +
   (defclass check-in ()
     ((date :initarg :date
   	 :accessor date)
  
positive.code: 		     :accessor list-of-invoices)
     (name :initarg :name
  	 :accessor show-name)))
  
  (defclass invoice ()
    ((id-num :initarg :id-num
  
negative.code: 	 (description (hunchentoot:post-parameter "input-item-description"))
  	 (price (hunchentoot:post-parameter "input-item-price"))
  	 (qty (hunchentoot:post-parameter "input-item-qty"))
  	 (image (hunchentoot:post-parameter "image-data"))
  	 (set-name (invoice-set-name invoice)))
      
      (mito:create-dao 'item-db :description description
  		     :quantity qty
  		     :price price
  		     :invoice-db (mito:find-dao 'invoice-db :set-name set-name))
      
  
      (push (make-instance 'item :description description
  			 :quantity qty
  			 :price price
  