anchor.diff:  (defmessage save-facts (bot))
   (defmessage set-fact (bot noun info))
   (defmessage get-fact (bot noun))
  +(defmessage erase-some-facts (bot))
   (defmessage erase-all-facts (bot))
   
   (defreply load-facts ((bot (proto 'sykobot)))
  
positive.code:     (if hasp
          info
          (format nil "I know nothing about ~A" noun))))
  
  (defreply erase-all-facts ((bot (proto 'sykobot)))
    (clrhash (facts bot)))
  
negative.code:           (cl-store:restore (facts-db bot)))))
  
  (defreply save-facts ((bot (proto 'sykobot)))
    (when (zerop (mod (hash-table-count (facts bot)) *facts-write-interval*))
      (cl-store:store (facts bot) (facts-db bot))))
  
  (defreply set-fact ((bot (proto 'sykobot))
                      noun info)
    (when (> (hash-table-count (facts bot)) *max-facts-to-store*)
      (erase-some-facts bot))
    (setf (gethash noun (facts bot)) info))
  
  (defreply set-fact :after ((bot (proto 'sykobot))
                             noun info)
    (declare (ignore noun info))
  