 (declare trigger-from-child
          trigger-from-parent
          trigger-from-timer)
+;; Those functions pretty much all require the
+;; full-blown state-wrapper parameter, since
+;; they recurse back into here.
+;; Pretty much nothing else anywhere should.
+;; TODO: Track that down and make it so.
 (s/fdef schedule-next-timeout!
         :args (s/cat :state-wrapper ::state-wrapper)
         :ret ::state-wrapper)

                                             "after ~:d at ~:d "
                                             "possibly "
                                             "because input arrived "
                                             "from elsewhere at ~:d:\n~a")]
                                (log/debug pre-log
                                           (cl-format nil
                                                      fmt
                                                      delta_f

                                    ;; attempt seems to agree).
                                    ;; TODO: Double-check the reference
                                    (min next-based-on-ping min-resend-time)]
                                (log/debug prelog
                                           "EOF/unsent criteria:\nun-ackd-count:"
                                           un-ackd-count
                                           "\nun-sent-count:"
                                           un-sent-count
