anchor.diff:    (defun command-function (cmd)
       (multiple-value-bind (fn hasp)
           (gethash cmd command-table)
  -      (if hasp fn 
  +      (if hasp fn
             (lambda (bot args sender channel)
               (send-notice bot sender (format nil "I don't know how to ~A." cmd))))))
  -  
  +
     (defun erase-all-commands ()
       (clrhash command-table))
     )
  
positive.code:         (declare (ignore status-code headers))
          (values (multiple-value-bind (match vec)
                      (scan-to-strings
                       (create-scanner 
                        "<title\\s*>\\s*(.+)\\s*</title\\s*>"
                        :case-insensitive-mode t) body)
                    (declare (ignore match))
  
negative.code:                      (send-msg bot channel "pong")))
  (add-command "google" (lambda (bot args sender channel)
                         (google-search bot args sender channel)))
  (add-command "shut" (lambda (bot args sender channel)
                        (send-msg bot channel
                                  (format nil "~A: Fine. Be that way. Tell me to talk when you realize ~
                                                   just how lonely and pathetic you really are." sender))
                        (shut-up bot)))
  (add-command "chant" (lambda (bot args sender channel)
                        (send-msg bot channel "FUCK REGEX")))
  (add-command "help" (lambda (bot args sender channel)
                        (send-msg bot channel (format nil "~A: I'm not a psychiatrist. Go away." sender))))
  