anchor.diff:  (require :cl-xmpp-tls)
   
   (defun trim (string &key inside)
  +  (check-type string string)
     (string-trim '(#\Space #\Tab #\Newline)
                  (if inside
                      (ppcre:regex-replace-all "\\s+" string " ")
  
positive.code:             (trim title :inside t)))))))
  
  (defun get-title (stream &key (buff-size 1024))
    (let (charset-set title-set)
      (read-until stream
                  #'(lambda (data stream)
  
negative.code:                      :fill-pointer t))))
  
  (defun convert-string (string from to)
    (check-type string string)
    (check-type from keyword)
    (check-type to keyword)
    (babel:octets-to-string
     (babel:string-to-octets string :encoding from)
     :encoding to))
  
  (defun get-http-page-title (url)
    (check-type url string)
    (multiple-value-bind (stream status headers)
        (drakma:http-request url :want-stream t)
      (when (and (= status 200)
                 (search "text/html" (cdr (assoc :content-type headers))
                         :test #'equalp))
        (with-open-stream (s stream)
  