anchor.diff:             until (eql b-current request-index)
              do (bordeaux-threads:condition-wait b-condvar b-lock)))
         (unwind-protect
  -           (funcall fn)
  +           (let ((*in-async-handler* t))
  +             (funcall fn))
           (bordeaux-threads:with-lock-held (b-lock)
             (setf b-current nil)
             (condition-broadcast b-condvar))))))
  
positive.code:                   (if async-channel
                        (if (not (async-channel/close-p async-channel))
                            (dolist (callback (async-channel/message-callbacks async-channel))
                              (funcall callback envelope))
                            ;; ELSE: We won't deliver messages to a closed channel
                            (log:warn "Incoming message on closed channel: ~s" async-channel))
                        ;; ELSE: Unused channel
  
negative.code:                             :read (lambda (fd type c)
                                      (declare (ignorable fd type c))
                                      (handle-command async-conn)))
  
        (iolib:set-error-handler event-base in-fd (lambda (&rest aa) (log:error "Got pipe error: ~s" aa)))
  
        ;;
  