anchor.diff:         (incf total-readed readed)
          (when (< readed buff-size)
            (setf (fill-pointer buffer) total-readed))
  -       (setf result (funcall condition buffer))
  +       (setf result (funcall condition buffer stream))
          (when result
            (when result-only
              (return result))
  
positive.code: 
  (defun get-http-page-title (url)
    (multiple-value-bind (stream status headers)
        (drakma:http-request url :want-stream t :force-binary t)
      (unwind-protect
           (when (and (= status 200) 
                      (search "text/html" (cdr (assoc :content-type headers))))
             (let ((encoding drakma:*drakma-default-external-format*))
               (read-until stream #'(lambda (data)
                                      (let ((data2 (flexi-streams:octets-to-string data :external-format encoding)))
                                        (when (eq encoding drakma:*drakma-default-external-format*)
                                          (ppcre:register-groups-bind (charset)
                                              ("(?i)charset=\"?([^\"\\s>]+)" data2)
                                            (setf encoding (make-keyword charset))
                                            (setf data2 (flexi-streams:octets-to-string data :external-format encoding))))
                                        (ppcre:register-groups-bind
                                            (title)
                                            ("(?i)<title>([^<]*)</title>" data2 :sharedp t)
                                          title))) :result-only t)))
        (close stream))))
  
  (defun process-common (connection message)
    (optima:match (xmpp:body message)
  
negative.code:         (let ((condition
                 (cond
                   (fun
                    #'(lambda (data stream)
                        (declare (ignore stream))
                        (get-erl-man-function-description data fun arity)))
                   (t #'(lambda (data stream)
                          (declare (ignore stream))
                          (get-erl-man-module-discription data))))))
            (read-until stream condition :result-only t))))))
  
  (defun get-rates (pairs)
  