anchor.diff:         ,@body)))
   
   (defun dup-retained (fd)
  +  "Dup the given file descriptor and return the new file descriptor
  +with a +1 retain count."
     (with-safe-fd-manipulation
       (let ((new-fd (track (dup fd))))
         (debug-log status "DUP ~A = ~A" new-fd fd)
  
positive.code:  'call-with-fd-bindings
   'destroy-fd-bindings)
  
  (define-condition fd-over-release (error)
    ((fd
      :initarg :fd
      :initform (required)
      :accessor fd-over-release-fd))
    (:report (lambda (c s) (format s "FD ~A was over released" (fd-over-release-fd c)))))
  
  (defun %fd-release (fd)
    "Do the work of `fd-release', but assume the table is already
  locked."
    (unless (gethash fd %fd-retain-count-table%)
      (error 'fd-over-release :fd fd))
    (let ((count (decf (gethash fd %fd-retain-count-table%))))
      (when (equal 0 count)
        (debug-log status "CLOSE ~A" fd)
  
negative.code: This variable should not be accessed directly.  You should add
  bindings with `bind-fd' and query bindings with `get-fd'.")
  
  (defun %fd-managed-p (fd)
    "The non-locking version of `fd-managed-p'"
    (not (not (gethash fd %fd-retain-count-table%))))
  