cl/with-open-file (269 bytes)
1 ;; with-open-file with direction and if-exists options 2 (with-open-file (<++> "<++>" 3 :direction <++> ; :input :output :io 4 :if-exists <++> ; :supersede :append :overwrite 5 :if-does-not-exist <++>) ; :create :error 6 <++>)