如何在ARX里关闭用LISP已经打开的文件？紧急求助！！

雅明

各位朋友，我现在碰到这样一个问题：如何在ARX里关闭用LISP已经打开的文件？例如，在LISP里面运行如下命令：
(setq fi (open (strcat cm_path "mytxt.txt") "r"))
但是我有时没有用： (close fi)　关闭此文件（虽然我知道这样不是个好程序，但有时却实有这种情况，呵呵），就在下一个ARX程序的运行程序里写这个相同路径和文件名的文件，在这时ARX就出错了（这是必然会出错的）！！所以我想在ARX程序里加一段在要写文件时，先判断此文件 mytxt.txt 可不可写，如不可写就关闭它（在这里，我强调的不可写是指被LISP程序打开了）。多谢！！