[LISP]请解释下下列代码

FlyinDance

各位GG,JJ小弟在网上看到一段代码，但有些不懂，希望指点下。
     (setq fn (open fle "r")) //打开文件
      (read-line fn) //从打开的文件中读入一行数据，但这些数据保存在什么地方？
      (read-line fn)  //从打开的文件中读入一行数据，但这些数据保存在什么地方？
      (command "pline")  //开始Pline命令
      (while (setq pt (read-line fn)) //从打开的文件中读入一行数据，并赋给变量PT
(command (read (strcat "(" pt ")")))
      )
      (command "") //结束命令
(strcat "(" pt ")")返回的是什么值？
(read (strcat "(" pt ")"))返回的又是什么值？

ZZXXQQ

(read-line fn) //从打开的文件中读入一行数据，不保存，即跳过一行。
(read-line fn)  //从打开的文件中读入一行数据，同上
      (command "pline")  //开始Pline命令
      (while (setq pt (read-line fn)) //从打开的文件中读入一行数据，并赋给变量PT
(command (read (strcat "(" pt ")")))
      )
      (command "") //结束命令
(strcat "(" pt ")")返回的是读入行两头加上括弧的字串
(read (strcat "(" pt ")"))返回的是去掉字串引号后的元素（或表）这里是点的坐标表。

FlyinDance

谢谢指点