anchor.diff:  	:cl-pass
   	:hunchentoot
   	:parenscript))
  -;;;All predicted data objects needed
  +;;;All predicted data objects neededers
   
   (defclass show ()
     ((contact-name :initarg :contact-name
  
positive.code: 
  (defun find-show-name (name data-lst)
    (find name data-lst :test #'string-equal
  	:key #'name))
  
  (defun add-show (show-obj)
    (push (make-instance 'show
  
negative.code: 	 :accessor message-date)
     (content :initarg :content
  	    :accessor message-content)
     (reply :initarg :reply
  	  :accessor message-reply)
     (read-date :initarg :read-date
  	 :accessor message-read-date)
  