anchor.diff:    price quantity description invoices-on picture shows-on returned-on)
     
   (defun save-data ()
  -  (let* ((saved-list (mapcar #'lambda (x)
  -			     (mapcar #'lambda (y)
  -				     (conspack:encode-object (invoice-item-list y)))
  -			     *GLOBAL-INVOICE-LIST*)))
  +  (let* ((saved-list (mapcar #'conspack:encode-object (invoice-item-list (car *GLOBAL-INVOICE-LIST*)))))
  +			    
           
       (with-open-file (out "caps.db"
   			 :direction :output
  
positive.code:    (shows-on :initarg :shows-on
  	     :accessor item-shows-on
  	     :initform '())
     (returned-on :initarg :returned-on
  		:accessor item-returned-on)))
  
  
negative.code: 						     (invoice-item-list invoice))))
    (redirect "/setthemcookies")))
  
  (define-easy-handler (partial-check-in :uri "/partial-check-in") (qty desc price)
    (let* ((rtn (hunchentoot:post-parameter "ranged"))
  	 (invoice (find-invoice-from-cookie (cookie-in "current-invoice")))
  	 (item-r (first (remove-if-not #'(lambda (x)
  				(and (string= desc (item-description x))
  				     (string= price (item-price x))
  				     (string= qty (item-quantity x)))) (invoice-item-list invoice)))))
      
  				
      (setf (item-returned-qty item-r) (+ (item-returned-qty item-r) rtn))))
  ;;;Standard check in page that displays a table of shows with invoices
  (define-easy-handler (checkinlist :uri "/checkinlist") ()
    (standard-page (:title "Check in list")
  