anchor.diff:      (unwind-protect
            (loop for line = (read-line stream)
                  for object = (parse-stream-line (trim-whitespace line))
  -               while (funcall handler-function line))
  +               while (funcall handler-function object))
         (close stream))))
   
   (defun stream/site (handler-function follow &key stall-warnings (filter-level :NONE) language (with :FOLLOW) replies count)
  
positive.code:     (unwind-protect
           (loop for line = (read-line stream)
                 for object = (parse-stream-line (trim-whitespace line))
                 while (funcall handler-function line))
        (close stream))))
  
  (defun stream/statuses/sample (handler-function &key stall-warnings (filter-level :NONE) language count)
  
negative.code:     (unwind-protect
           (loop for line = (read-line stream)
                 for object = (parse-stream-line (trim-whitespace line))
                 while (funcall handler-function object))
        (close stream))))
  