write-sequence

(write-sequence sequence stream &key start end)

sequence の要素を stream に書き込み、そのシーケンスを返します。書き込みはインデックス :start（デフォルト 0）から始まり、インデックス :end（デフォルトはシーケンス長）の手前で止まります。:start/:end キーワードはリテラルでなければなりませんが、その値は任意の式で構いません。3 つのバックエンドすべてで動作します。

sequence が文字列の場合、指定範囲のスライスは（write-string と同様に）文字として書き込まれるため、with-output-to-string が返すようなテキスト出力ストリームで使えます。

sequence が 0 から 255 の整数からなる 1 次元配列の場合は write-byte のループに展開されるため、:direction :output :element-type '(unsigned-byte 8) で開いたストリームが必要です。

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

(let ((buf (make-array 4)))
  (setf (aref buf 0) 222) (setf (aref buf 1) 173)
  (setf (aref buf 2) 190) (setf (aref buf 3) 239)
  (with-open-file (out "data.bin" :direction :output :element-type '(unsigned-byte 8))
    (write-sequence buf out)))  ; => the array

これは 4 バイト DE AD BE EF を data.bin に書き込みます。配列の一部だけを書き込むには :start/:end を使います。

パックドバッファ: 生のバイナリ要素を一括で

sequence がパックド配列 -- 任意ランクのパックド浮動小数点配列（single-float / double-float、#f(...) / #d(...)）またはパックド整数ベクタ（(unsigned-byte 8|16|32)）-- の場合、その要素は生のリトルエンディアンのバイナリとして一括転送で書き出されます。read-sequence が同じ種類のバッファに読み戻すバイト列そのものです。single-float は 4 バイト、double-float は 8 バイト、(unsigned-byte 16) は 2 バイト、ランク n の浮動小数点配列は行優先順（:end の既定値は総要素数）です。こうして書き出した #f 行列は、numpy や C がそのまま読める float32 ファイルになります。

(with-open-file (out "weights.bin" :direction :output :element-type '(unsigned-byte 8))
  (write-sequence #f((1.0 2.0) (3.0 4.0)) out))  ; => the array; 16 bytes written