anchor.diff:  	     :initform '())
      (returned-qty :initarg :returned-qty
   		 :accessor item-returned-qty)
  -  (notes :initarg :notes
  +   (notes :initarg :notes
   	  :accessor item-notes
   	  :initform '())
      (returned-on :initarg :returned-on
  
positive.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
  
negative.code: 	       (if (equal (item-notes b) '())
  		   ""
  		   (funcall (first (item-notes b)) :display))
  	       "}{"
  	       (item-returned-on b)
  	       "}"))
  
  