anchor.diff:  (defmethod stream-start-line-p ((stream fd-character-output-stream))
     nil)
   
  -(defmethod stream-fresh-line ((stream fd-character-output-stream)))
  +(defmethod stream-fresh-line ((stream fd-character-output-stream))
  +  nil)
   
   (defmethod stream-write-string ((stream fd-character-output-stream) string &optional start end)
     (with-accessors ((fd fd-stream-fd)) stream
  
positive.code:   (:documentation
     "This table tracks how many outstanding retains each file
  descriptor has."))
  (define-once-global %fd-retain-count-table-lock% (make-lock)
    (:documentation
     "This lock protects `%fd-retain-count-table-lock%'."))
  
  
negative.code:         (release-fd-bindings taken-bindings))
  
        (unwind-protect (funcall fn)
          (with-recursive-lock-held (%fd-retain-count-table-lock%)
            (loop :for fd :across *autorelease-fd-scope* :do
               (%fd-release fd)))
          (release-fd-bindings *fd-bindings*)))))
  