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: 
  (defun find-show-name-db (name)
    (mito:find-dao 'show-db :name name))
  ;;;Provide the function a show-obj and push a new show onto the *CURRENT-SHOW-LIST*
  (defun add-show (show-obj)
    (push (make-instance 'show
  
negative.code:       '()
        (concatenate 'string (car notes) "\\\\"
  		   (concat-notes (cdr notes)))))
  
  (defun subseq-img (b)
    (if (null b)
        ""
  