anchor.diff:    "Decrement the retain count for the given fd.
   
   If the retain count reaches 0, then it will be closed immediately."
  -  (with-lock-held (%fd-retain-count-table-lock%)
  +  (with-recursive-lock-held (%fd-retain-count-table-lock%)
       (%fd-release fd)))
   
   (defun release-fd-bindings (fd-bindings)
  -  (with-lock-held (%fd-retain-count-table-lock%)
  +  (with-recursive-lock-held (%fd-retain-count-table-lock%)
       (fset:do-map (key-fd value-fd fd-bindings)
         (declare (ignore key-fd))
         (when (%fd-managed-p value-fd)
  
positive.code:         (release-fd-bindings taken-bindings))
  
        (unwind-protect (funcall fn)
          (with-lock-held (%fd-retain-count-table-lock%)
            (loop :for fd :across *autorelease-fd-scope* :do
               (%fd-release fd)))
          (release-fd-bindings *fd-bindings*)))))
  
negative.code: (defmethod stream-start-line-p ((stream fd-character-output-stream))
    nil)
  
  (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
  