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