ensure-directories-exist

(ensure-directories-exist pathspec)

pathspec のディレクトリ部分を、欠けている親も含めて作成し、pathspec を返します。ディレクトリ部分は最後の / までを含む部分なので、"logs/app.log" は logs/ を作成してファイル自体には触れません。すでに / で終わる名前文字列はそれ自体がディレクトリです。/ を含まない名前文字列は作業ディレクトリ内のファイルを指すので何も作成しません。既存のディレクトリはエラーになりません。

lite 版: Common Lisp は (values pathspec created) を返しますが、こちらは pathspec のみを返します。コンパイル済みバックエンドでは第2の値が関数境界を越えられないため、返すと約束すると誤解を招くからです。

4つのバックエンドすべてで動作します。2つのWASMバックエンドは path_create_directory というWASIインポートを通じて欠けている階層をすべて作成し（Preview 1は直接、--component は wasi:filesystem の create-directory-at 経由）、作成できなかった場合は通知します。file-write-date と違ってこの操作の契約には「判定できない」という答えがありません。実行後にディレクトリが存在するかしないかのどちらかです。

(ensure-directories-exist "logs/2026/app.log")
(with-open-file (out "logs/2026/app.log" :direction :output)
  (write-line "started" out))