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