如何用lisp打开一个文件，然后关闭，再打开一个，关闭！

lgw

如何用lisp打开一个文件，然后关闭，再打开一个，再关闭，然后在打开和关闭中间过程中处理一些内容。

前生

(setq f (open "文件1" "r"))
(setq f1 (open "文件2" "w"))
(while (setq lll (read-line f)
         (write-line lll f1)
)
(close f)(close f1)

龙龙仔

lgw

我想打开后执行plot，然后关闭，再打开另一个，再打印，关闭。如此执行多次！