anchor.diff:  	 :accessor message-date)
      (content :initarg :content
   	    :accessor message-content)
  -   (reply :initarg :content
  +   (reply :initarg :reply
   	  :accessor message-reply)
      (read-date :initarg :read-date
   	 :accessor message-read-date)
  
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: 	     (not (find-user username)))
  	(and (register-user :username username
  			    :password (cl-pass:hash password))
  	     (redirect "/login"))
  	(redirect "/badpassword"))))
  
  (define-easy-handler (login :uri "/login") ()
    (standard-page (:title "Login")
  