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:         (let ((condition
                 (cond
                   (fun
                    #'(lambda (data)
                        (get-erl-man-function-description data fun arity)))
                   (t #'get-erl-man-module-discription))))
            (read-until stream condition :result-only t))))))
  
  (defun get-rates (pairs)
  
negative.code: 
  (defun get-http-page-title (url)
    (multiple-value-bind (stream status headers)
        (drakma:http-request url :want-stream t)
      (unwind-protect
           (when (and (= status 200) 
                      (search "text/html" (cdr (assoc :content-type headers))
                              :test #'equalp))
             (let (charset-set)
               (read-until stream
                           #'(lambda (data stream)
                               (unless charset-set
                                 (ppcre:register-groups-bind (charset)
                                     ("(?i)charset=\"?([^\"\\s>]+)" data)
                                   (setf charset-set t)
                                   (setf (flexi-streams:flexi-stream-external-format stream)
                                         (make-keyword (coerce charset 'string)))))
                               (ppcre:register-groups-bind
                                   (title)
                                   ("(?i)<title>([^<]*)</title>" data :sharedp t)
                                 (coerce title 'string)))
                           :result-only t)))
      (close stream))))
  
  (defun process-common (connection message)
    (optima:match (xmpp:body message)
  