anchor.diff:  (defreply save-karma ((bot (proto 'karma-bot)))
     (cl-store:store (karma bot) (karma-db bot)))
   
  -
   (defun make-karma-record (receiver giver &key (positive t))
     (list receiver giver positive (get-universal-time)))
  -
   
   (defmessage add-karma (bot receiver karma))
   (defmessage give-karma (bot receiver giver))
  
positive.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))
  
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)))
  