anchor.diff:        (return-from save-profile))
       (format s "Version ~A~%" (lisp-implementation-version))
       (when (member verbosity '(:report :full))
  -      (let ((*standard-output* s))
  -        (generate-report profile order-by))
  +      (generate-report profile order-by s))
       (when (eql verbosity :full)
         (loop
            for sample across (profile-data profile) do
  
positive.code:     :callers (make-hash-table)
      :callees (make-hash-table)))
  
  (defun generate-report (profile order-by)
    (setf profile (profile-data profile))
    (let ((threads (make-hash-table)))
      (labels ((entry-for (thread function)
  
negative.code:               (when (not (eql fn 0))
                  (cond (first (setf first nil))
                        (t (write-char #\; stream)))
                  (let ((*print-pretty* nil))
                    (write-string (substitute #\_ #\Space (substitute #\L #\< (substitute #\G #\> (format nil "~(~S~)" (sys.int::function-name fn))))) stream))))
           (write-char #\Space stream)
           (write 1 :stream stream)
           (terpri stream)))
    profile)
  