anchor.diff:            (let* ((buf (make-string 8196))
                    (len (read-sequence buf response)))
               (close response)
  -            (generic-uri-summary (subseq buf 0 len) headers))))
  +            (generic-uri-summary (subseq buf 0 len)
  +                                 (multiple-value-bind (type subtype)
  +                                     (drakma:get-content-type headers)
  +                                   (concatenate 'string type "/" subtype))))))
       (usocket:ns-host-not-found-error ()
         "ERROR: Host not found")))
   
  
positive.code:       (handler-case
            (let* ((uri (puri:parse-uri uri-string))
                   (summary (retrieve-uri-summary uri-string)))
              (when summary
                (reply-to message "[~a] - ~a" summary (puri:uri-host uri))))
          (puri:uri-parse-error ()
            nil)
          (usocket:timeout-error ()
            nil)))))
  
  (defun google-api-search (query cse-id api-key)
  
negative.code:                             (message irc:irc-privmsg-message))
    (ppcre:do-matches-as-strings  (uri-string "https?:\\/\\/[-a-zA-Z0-9@:%._\\+~#=]{2,256}\\.[a-z]{2,6}\\b[-a-zA-Z0-9@:%_\\+.~#&//=]*\\??[-a-zA-Z0-9@:%_\\+.~#&//=]*" (second (arguments message)) nil :sharedp t)
      (when (< (length uri-string) 2083)
        (log:log-message :info "~a mentioned url ~a" (source message)
                          uri-string)
        ;; save url
        (pushnew uri-string (urls-of module) :test #'string=)
        (save-urls module)
  