(with-open-file (stream "output.txt" :direction :output)
    ;; use the stream here
 )