with-open-file

(with-open-file (stream filename options...) body...)

filename で指定されたファイルを開き、開いたストリームを stream に束縛し、その束縛のもとで本体のフォームを評価して、あとでファイルを閉じ、最後の本体フォームの値を返します。インタープリタと JVM では展開が本体を unwind-protect で包むため、あらゆる脱出時（通常復帰、本体内でのエラー通知、return/return-from）にファイルが閉じられます。これは exception-handling サポートの導入以降、wasm-GC を含むすべてのバックエンドで成り立ちます(wasm-GC では with-open-file を使うプログラムは EH モードでコンパイルされます)。サポートされるオプションは :direction（:input（デフォルト）または :output）、:element-type（'character（デフォルト。テキストストリーム）または '(unsigned-byte 8)（read-byte/write-byte 用のバイナリストリーム。サイズなしの 'unsigned-byte も同じものとして受け付けます））、および :if-exists :append（既存ファイルを切り詰めずに出力用に開き、すべての書き込みが末尾に追加される）です。:if-does-not-exist と :external-format は、すでに実現されている挙動を指す値（:create/:error と :utf-8/:default）であれば受け付けます。オプションの値は計算された値でも構いません。オプションを引数として受け取り下位に渡す関数は、移植性のあるファイル操作ラッパーがファイルを開く際の定型であり、そうした値はフォームの実行時に読み取られ、対応するリテラル形にディスパッチされます。リテラルの値は従来どおりコンパイル時に解決されるため、通常の書き方のコンパイル結果は変わりません。サポート範囲外の値はフォームの実行時にエラーを通知します。単純な open／close のペアに展開されるため、特別なストリーム型は関与しません。

ファイルシステムに触れるため、with-open-file はここでは実行可能な例ではなく静的に示します。

(with-open-file (s "out.txt" :direction :output)
  (write-line "hello" s))
(with-open-file (s "out.txt" :direction :input)
  (read-line s)) ; => "hello"
(with-open-file (s "out.bin" :direction :output :element-type '(unsigned-byte 8))
  (write-byte 255 s)) ; => 255
(with-open-file (s "out.txt" :direction :output :if-exists :append)
  (write-line "again" s))
(defun read-first-line (path element-type)
  (with-open-file (s path :direction :input :element-type element-type)
    (read-line s)))