anchor.diff:  (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))
  
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: 		  (t (setf karma (+ karma (/ 1 base-karma))))))))
      karma))
  
  (defcommand praise ("(.+)" nick)
    (give-karma *bot* nick *sender*)
    (build-string "ALL PRAISE ~:@(~A~)" nick))
  (defcommand unpraise ("(.+)" nick)
    (give-unkarma *bot* nick *sender*)
    (build-string "~A shitsux" nick))
  
  (defcommand karma ("(.+)" nick)
    (build-string "~2$" (calculate-adjusted-karma *bot* nick)))
  