anchor.diff:  		(setf karma (1+ karma))
   		(setf karma (1- karma))))
       karma))
  -
   
   (defmessage calculate-adjusted-karma (bot nick))
   (defreply calculate-adjusted-karma ((bot (proto 'karma-bot)) nick)
  
positive.code: (defreply give-unkarma ((bot (proto 'karma-bot)) receiver giver)
    (add-karma bot receiver (make-karma-record receiver giver :positive nil)))
  
  
  (defmessage calculate-base-karma (bot nick))
  (defreply calculate-base-karma ((bot (proto 'karma-bot)) nick)
    (let ((karma 0))
  
negative.code: (defreply init-bot :after ((bot (proto 'karma-bot)))
  	  (load-karma bot))
  
  (defun karma-db (bot)
    (merge-pathnames "karma-table.db" (bot-dir bot)))
  
  (defmessage load-karma (bot))
  (defmessage save-karma (bot))
  