入出力

テキストファイルをオープンして内容を出力する

with-open-file マクロでファイルをオープンし、loop マクロの中で read-line 関数を使って一行ずつ読み込んで出力します。

(with-open-file (in "abc.txt")
  (loop for line = (read-line in nil)
        while line
        do (write-line line)))