参数类型错误 file nil 是怎么回事？

漫天飘雪

请给位大虾帮帮忙．我有两个程序，总是出现参数类型错误Stringp.nil 和 fixnump:nil ，不能用．机器没有病毒，程序也没有错误．这是怎么回事．谢谢． ３楼有程序．

王咣生

程序在哪呢?

漫天飘雪

在r14中程序运行正常，但在2000及以上版本中运行至(read-line f)发生参数类型错误的提示，有时又顺利通过．程序如下：

...........

(princ "\n0.5 0.75 1.0 1.25 1.5 2.0 2.5 3.0 4.0 "）　　　　　　　　　　　　　　　　　　　　　　　　　　　　　(princ "\n\n")
(setq c1 (getstring "\n(回车退出)DN="))
(while (/= c1 "") (progn
(setq f1 (open "dn" "r"))
(setq c3 "")
(while (/= c1 c3) (progn
(repeat 16
(read-line f1)
)
(setq v1 (read-char f1))
(setq c3 "")
(while (/= v1 44) (progn
(setq c3 (strcat c3 (chr v1)))
(setq v1 (read-char f1))
                   )
)
                  )
)

.................

程序执行到(read-line f1)就出现参数类型错误fixnump:nil的提示．

f1的返回值为nil

漫天飘雪

感谢斑竹能给予帮助,万分感谢!请回帖.

漫天飘雪

请回贴,谢谢.