anchor.diff:  (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)))
  +                        (multiple-value-bind (title url)
  +                            (google-search args)
  +                          (send-msg bot channel
  +                                    (format nil "~A: ~A <~A>"
  +                                            sender title url)))))
   (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 ~
  
positive.code: (add-command "tell" (lambda (bot args sender channel)
                        (send-msg bot channel)))
  
  (defun google-search (bot query sender channel)
    (let ((search-string (regex-replace-all "\\s+" query "+")))
      (multiple-value-bind (title url)
          (url-info (format nil "http://google.com/search?filter=1&safe=on&q=~A&btnI" search-string))
        (send-msg bot channel (format nil "~A: ~A <~A>" sender title url)))))
  
  (defun url-info (url)
    (handler-case
  
negative.code: 
  (defun grab-url (string)
    (find-if #'has-url-p (split "[\\s+><,]" string)))
  
  