anchor.diff:  
   (defvar *more* "lulz")
   (add-command "think" (lambda (bot args sender channel)
  -		       (think bot channel 2)))
  +                       (think bot channel 2)))
   (add-command "echo" (lambda (bot args sender channel)
                        (send-msg bot channel args)))
   (add-command "ping" (lambda (bot args sender channel)
  
positive.code:                              (format nil "~A <~A>" title url)))))
  (add-command "shut" (lambda (bot args sender channel)
                        (send-reply bot sender channel
                                    "Fine. Be that way. Tell me to talk when you realize ~
                                     just how lonely and pathetic you really are.")
                        (shut-up bot)))
  (add-command "chant" (lambda (bot args sender channel)
                        (send-msg bot channel (format nil "MORE ~:@(~A~)" *more*))))
  
negative.code:   (defun get-memo (recipient)
      (multiple-value-bind (memo hasp)
          (gethash recipient memo-table)
        (if hasp
            memo
            nil)))
  
    (defun get-and-remove-memo (recipient)
      (let ((memo (get-memo recipient)))
        (remove-memo recipient)
        memo))
  
    (defun erase-all-memos ()
      (clrhash memo-table))
    )
  