┌─[phoe][helix][/tmp]
└─▪ sbcl
* (with-open-file (s "bar" :direction :output :if-exists :supersede) (format s "foo"))
NIL
* 
┌─[phoe][helix][/tmp]
└─▪ cat bar
foo