misc:software:Common Lisp:sbcl:ファイルの内容を一度に入出力する

ファイルの内容を一度に……

出力する

Appendix A of CLtL2 の series を使うのが手軽だ。

(require :series)
(defun cat (file)
  (format t "~A" (series:collect
                   'string
                   (series:scan-file file #'read-char))))

読み込む

上記の cat 関数中の format 関数の第一引数を nil にすればよい。

(require :series)
(defun cat (file)
  (format nil "~A" (series:collect
                   'string
                   (series:scan-file file #'read-char))))