请帮忙分析(read-line fn )出错的原因

xuwei821

请看下段程序:
;将文本文件中的内容转换为列表
(defun c:GetTxt()
  (setq datfile "d:\ct-nn.txt")
  (setq fn (open datfile "r"))

  (while (setq x (read-line fn ))
    (setq tmplst (append tmplst(list x)))
  )
  (close fn)
  tmplst
)
运行时出现“错误: 参数类型错误: FILE nil”，将(read-line fn )中的fn去掉后，运行时出现死循环。
各位高手，能帮忙分析一下是何缘故？

mccad

请不要重复发帖，你原来的那一帖已经有朋友回复，如果他的回复还没有解决你的问题，请在那个帖子下面回复。

wzz1968

(defun c:GetTxt()
  (setq datfile "d:\\ct-nn.txt")
  (setq fn (open datfile "r"))

  (while (setq x (read-line fn ))
    (setq tmplst (append tmplst(list x)))
  )
  (close fn)
  tmplst
)

xuwei821

已经查明原因，是由于文件的路径表示不正确，导致找不到文件而致错。

mccad

可在在文件路径上加上findfile函数来判断文件是否存在。