anchor.diff:                    (puri:render-uri uri s))))
       (usocket:ns-host-not-found-error () (error "Host not found"))))
   
  +(defun cliki-urls (query)
  +  (let ((links NIL)
  +        (page (drakma:http-request
  +               (search-url "http://www.cliki.net/admin/search?words=~A"
  +                           query))))
  +    (ppcre:do-register-groups (url)
  +        ("\\d <b><a href=\"(.*?)\">(.*?)<" page)
  +      (push url links))
  +    (values links
  +            (parse-integer (ppcre:scan-to-strings "(\\d*) results? found" page)
  +                           :junk-allowed T))))
  +
  +
   (defun decode-html-string (string)
     (html-entities:decode-entities string))
   
  
positive.code: 
  (defun grab-url (string)
    (find-if #'has-url-p (split "[\\s+><,]" string)))
  
negative.code: (add-command "ping" (lambda (bot args sender channel)
                       (send-msg bot channel "pong")))
  (add-command "google" (lambda (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 ~
  