anchor.diff:  	     :accessor db-user-pass
   	     :col-type :text))
     (:metaclass mito:dao-table-class))
  -	 
  +
   (defclass message ()
     ((sender :initarg :sender
   	   :accessor message-sender)
  
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: 					    :id "message" :name "message")
  				    (:button :type "Submit Message" :class "btn btn-default btn-info" "Message")))))	   
  	   ,messages)))
  
  ;;;Ugly as hell
  ;;;Tree's lists so they work properly on the website
  (defun pair-off (lst)
    (cond
      ((null lst) '())
  