LISP で改行しながら文字列出力する・その後

LISP で改行しながら文字列出力する・改 - Shammerismで文字列を改行と合わせて出力するように書いてみたものの、write を使用するとファイルに出力されたときにダブルクォートが残ってしまうことがわかった。ダブルクォートを残さないようにするには、write でなく princ を使用すればいい。

(with-open-file (f "file.txt" :direction :output)
  (let ((lines (list "aaa" "bbb" (concatenate 'string "ccc" "ddd"))))
    (dolist (line lines)
      (princ line f)
      (terpri f))))
(quit)