Currently the text generates a file called "test.txt" in the curent directory, which is in general a bad idea. It should be in a temporary directory.

To make it portable, you can use uiop:with-temporary-file (or other functions/macros in UIOP https://asdf.common-lisp.dev/uiop.html).