anchor.diff:      (if hasp
           info
           (format nil "I know nothing about ~A" noun))))
  +
  +(defreply erase-some-facts ((bot (proto 'sykobot)))
  +  (send-msg bot "#sykosomatic" "deleting facts")
  +  (let ((keys (hash-table-keys (facts bot))))
  +    (dotimes (n *facts-to-remove*) ;;remove approximately *facts-to-remove* facts
  +      (remhash (random-elt keys) (facts bot)))))
  +
   
   (defreply erase-all-facts ((bot (proto 'sykobot)))
     (clrhash (facts bot)))
  
positive.code: (in-package :sykobot)
  
  ;;; Facts
  (defcommand fact ("(\\S+)*" topic)
  
negative.code: (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)))
  