anchor.diff:    (when (scan "https?://.*[.$| |>]" string) t))
   
   (defun grab-url (string)
  -  (find-if #'has-url-p (split "\\s+|>|<" string)))
  +  (find-if #'has-url-p (split "\\s+|>|<|," string)))
   
   (defun topic (channel-name)
     (let ((channel (irc:find-channel *conn* channel-name)))
  
positive.code:           (drakma:http-request url)
          (declare (ignore status-code headers))
          (values (multiple-value-bind (match vec)
                      (scan-to-strings "<title>(.+)</title>" body)
                    (declare (ignore match))
                    (if (< 0 (length vec))
                        (elt vec 0)
  
negative.code:   (let ((search-string (regex-replace-all "\\s+" query "+")))
      (multiple-value-bind (title url)
          (url-info (format nil "http://google.com/search?btnI&q=~A" search-string))
        (send-msg channel (format nil "~A: ~A <~A>" sender title url)))))
  
  (defun url-info (url)
    (handler-case
  