[lispm]

This should be sufficient:

  (with-open-file (*standard-output* "file.txt" :direction :output)
    (print 'a)
    (print 'b))