anchor.diff:  (defreply save-seen ((bot (proto 'seen-bot)))
     (cl-store:store (seen bot) (seen-db bot)))
   
  -
  -
  -
   (defmessage have-seen (bot channel nick))
   (defreply have-seen ((bot (proto 'seen-bot)) channel nick)
     (when (alref channel (seen bot))
       (setf (gethash nick (alref channel (seen bot))) (get-universal-time))))
   (defreply have-seen :after ((bot (proto 'seen-bot)) channel nick)
  -	  (declare (ignore channel nick))
  -	  (print "saving")
  -	  (save-seen bot))
  +  (declare (ignore channel nick))
  +  (save-seen bot))
   
   (defmessage last-seen (bot channel nick))
   (defreply last-seen ((bot (proto 'seen-bot)) channel nick)
  
positive.code:     (when seen-table
        (gethash nick seen-table))))
    
  
  (deflistener seen-listener
    (print "OMG")
    (have-seen *bot* *channel* *sender*))
  
  (defcommand seen ("(.+)" nick)
  
negative.code: (defmessage save-seen (bot))
  
  (defreply load-seen ((bot (proto 'seen-bot)))
    (when (probe-file (seen-db bot))
      (setf (seen bot)
  	  (cl-store:restore (seen-db bot)))))
  