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:                 (ppcre:regex-replace-all "\\s+" snippet " "))
     100))
  
  (defun generic-uri-summary (response headers)
    (multiple-value-bind (type subtype)
        (drakma:get-content-type headers)
      (alexandria:switch ((concatenate 'string type "/" subtype) :test #'string=)
        ("text/html"
         (let* ((dom (plump:parse response))
                (titles (and dom (plump:get-elements-by-tag-name dom "title")))
                (title-text-node (and titles (plump:first-child (first titles)))))
           (when title-text-node
             (format-snippet (plump:text title-text-node)))))
        ("text/plain"
         (format-snippet response)))))
  
  (defun retrieve-uri-summary (uri)
    (handler-case
  
negative.code:       (handler-case
            (let* ((uri (puri:parse-uri uri-string))
                   (summary (retrieve-uri-summary uri-string)))
              ;; TODO: maybe cache summary?
              (cond
                (summary
                 (log:log-message :info "Summary for ~a : ~a" uri-string summary)
                 (reply-to message "[~a] - ~a" summary (puri:uri-host uri)))
                (t
                 (log:log-message :info "No summary found for ~a" uri-string))))
          (puri:uri-parse-error ()
            (log:log-message :error "failed to parse url ~a" uri-string)
            nil)
          (usocket:timeout-error ()
            (log:log-message :error "socket timeout checking parse url ~a" uri-string)
            nil)))))
  
  (defun google-api-search (query cse-id api-key)
  