anchor.diff:  
   (defun grab-url (string)
     (find-if #'has-url-p (split "[\\s+><,]" string)))
  +
  
positive.code: (add-command "ping" (lambda (bot args sender channel)
                       (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 ~
  
negative.code: (add-command "tell" (lambda (bot args sender channel)
                        (send-msg bot channel)))
  
  (add-command "cliki" (lambda (bot args sender channel)
                         (send-msg bot channel
                                   (format nil "~A, I found ~D result~:P. Check it out at <~A> or leave me alone."
                                           sender (nth-value 1 (cliki-urls args))
                                           (search-url "http://www.cliki.net/admin/search?words=~A" args)))))
  
  (defun search-url (engine query)
    (format nil engine (regex-replace-all "\\s+" query "+")))
  
  (defun google-search (query)
    (url-info (search-url
               "http://google.com/search?filter=1&safe=on&q=~A&btnI"
               query)))
  
  (defun url-info (url)
    (handler-case
  