(uiop:define-package :binry-hop/debug-sequence
 (:mix :binry-hop/debug-util :binry-hop :cl)
 (:export #:swr-eg)
 (:nicknames :debug-sequence))

(in-package :binry-hop/debug-sequence)

(defun swr-eg (len &rest open-args)
"(values (lambda () <io-stream-of-:path>)
        <writer-closure> :memory #*10101 :write t
        <reader-closure> counts -> (values nth-value loopedp))"
 (let* ((s (apply 'debug-util:io-open open-args))
        (w (hop-util:make-re/write-stream s len))
        (r (hop-util:make-reread-stream s)))
  (values (lambda () s) w r)))