[Sbcl-help] Is there a better way to find the last output?

[Jacek P. <rub...@go...>]

I am experimenting with a new testing method, and wonder if there is a
better way to find recent output?


(defun last-lines-of-output (n)
  (serapeum:take n
                 (serapeum:~> *standard-output*
                              swank::real-output-stream
                              swank/gray::data
                              swank/gray::stream-data-buffer
                              serapeum:lines)))