anchor.diff:    (when count (assert (< -150000 count 150000) () "COUNT must be NIL or between -150000 and 150000."))
     (when language (assert (valid-language-p language) () "~a is not a supported language." language))
     (when replies (setf replies "all"))
  -  (let ((stream (signed-stream-request *stream/user* :parameters (prepare* stall-warnings filter-level language with replies count) :method :GET)))
  -    (unwind-protect
  -         (loop for line = (read-line stream)
  -               for object = (parse-stream-line (trim-whitespace line))
  -               while (funcall handler-function object))
  -      (close stream))))
  +  (process-stream-inner (signed-stream-request *stream/user* :parameters (prepare* stall-warnings filter-level language with replies count) :method :GET
  +                                               :drakma-params (list :force-binary T))
  +                        handler-function))
   
   (defun stream/site (handler-function follow &key stall-warnings (filter-level :NONE) language (with :FOLLOW) replies count)
     "Streams messages for a set of users, as described in Site streams.
  
positive.code:   (assert (member filter-level '(:NONE :LOW :MEDIUM)) () "FILTER-LEVEL must be one of (:NONE :LOW :MEDIUM).")
    (when count (assert (< -150000 count 150000) () "COUNT must be NIL or between -150000 and 150000."))
    (when language (assert (valid-language-p language) () "~a is not a supported language." language))
    (let ((stream (signed-stream-request *stream/statuses/sample* :parameters (prepare* count stall-warnings filter-level language) :method :GET)))
      (unwind-protect
           (loop for line = (read-line stream)
                 for object = (parse-stream-line (trim-whitespace line))
                 while (funcall handler-function object))
        (close stream))))
  
negative.code:   (when count (assert (< -150000 count 150000) () "COUNT must be NIL or between -150000 and 150000."))
    (when language (assert (valid-language-p language) () "~a is not a supported language." language))
    (when replies (setf replies "all"))
    (process-stream-inner (signed-stream-request *stream/site* :parameters (prepare* follow stall-warnings filter-level language with replies count) :method :GET
                                                               :drakma-params (list :force-binary T))
                          handler-function))
  
  (defun stream/statuses/filter (handler-function &key follow track locations stall-warnings (filter-level :NONE) language count)
    "Returns public statuses that match one or more filter predicates. Multiple parameters may be specified which allows most clients to use a single connection to the Streaming API. Both GET and POST requests are supported, but GET requests with too many parameters may cause the request to be rejected for excessive URL length. Use a POST request to avoid long URLs.
  