chickadee » srfi-135 » get-output-text

Returns a text of the characters written to port so far, in the order in which they were output. It is an error if port was not created by open-output-text.

Example:

(let ((p (open-output-text)))
  (display "hello " p)
  (display "dave" p)
  (write-char #\newline p)
  (get-output-text p))
  ⇒ «hello dave»