anchor.diff:  	     :col-type :text))
     (:metaclass mito:dao-table-class))
   
  -(defclass message ()
  -  ((sender :initarg :sender
  -	   :accessor message-sender)
  -   (recipient :initarg :recipient
  -	      :accessor message-recipient)
  -   (date :initarg :date
  -	 :accessor message-date)
  -   (content :initarg :content
  -	    :accessor message-content)
  -   (reply :initarg :reply
  -	  :accessor message-reply)
  -   (read-date :initarg :read-date
  -	      :accessor message-read-date)
  -   (read-on :initarg :read-on
  -	    :accessor message-read-on)
  -   (private :initarg :private
  -	    :accessor message-private)
  -   (show-name :initarg :show-name
  -	      :accessor message-show-name)
  -   (invoice-name :initarg :invoice-name
  -		 :accessor message-invoice-name)
  -   (item-name :initarg :item-name
  -	      :accessor message-item-name)))
  -
  -(defclass dashboard ()
  -  ((posts :initarg :posts
  -	  :accessor dashboard-posts)
  -   (current-date :initarg :current-date
  -		 :accessor dashboard-current-date)))
  -
   ;;; Helper functions for classes
   
   ;;;Using a string NAME search for SHOW-NAME in DATA-LST
  -(defun find-show-name (name data-lst)
  -  (find name data-lst :test #'string-equal
  -	:key #'show-name))
  -
  -
   ;;;One way to do it that needs more work
   ;;;Alot more work...
   (defun find-show-db (&rest args)
  
positive.code: 		:col-type :text))
    (:metaclass mito:dao-table-class))
  
  (defclass user ()
    ((name :initarg :name
  	 :accessor user-name)
     (rank :initarg :rank
  	 :accessor user-rank)
     (password :initarg :password
  	     :accessor user-password)
     (shows-checked :initarg :shows-checked
  		  :accessor user-shows-checked)
     (invoice-history :initarg :invoice-history
  		    :accessor user-invoice-history)
     (points :initarg :points
  	   :accessor user-points)
     (messages :initarg :messages
  	     :accessor user-messages)
     (status :initarg :status
  	   :accessor user-status)))
  
  (defclass user-db ()
    ((name :initarg :name
  	 :accessor db-user-name
  
negative.code: (defun find-invoice-db (&rest args)
    (apply #'mito:find-dao 'invoice-db args))
  
  (defun find-item-db (&rest args)
    (apply #'mito:find-dao 'item-db args))
  
  (defun find-user-db (&rest args)
    (apply #'mito:find-dao 'user-db args))
  ;;;Create a user from a USERNAME and PASSWORD and push onto *USERS*
  (defun register-user (&key username password)
    (mito:create-dao 'user-db 
  		       :name username
  		       :password password
  		       :rank "user"))
  
  ;;;Find an invoice-object connected to a message
  ;;;Used for generating buttons on the dashboard
  