close 关闭一个已打开的文件
<P id=crleadin class=cr_leadin>关闭一个已打开的文件</P><PRE class=prog_in_end>(close file-desc) </PRE><P class=Heading-2>参数</P>
<P class=define_head>file-desc</P>
<P class=define_text>在 open 函数打开文件时获得的文件描述符。</P>
<P class=Heading-2>返回值</P>
<P class=body>如果 file-desc 参数有效，close 函数返回 nil；否则它返回一个错误信息。</P>
<P class=body>用 close 函数关闭文件后，该文件描述符并没有改变，但它已不再有效。在未关闭文件之前，添加到已打开文件中的数据并没有被真正写入文件。</P>
<P class=Heading-2>示例</P>
<P class=body>下列代码可获得文件 somefile.txt 的行数并将其值赋给变量 ct：</P><PRE class=prog_in>(setq fil "SOMEFILE.TXT")</PRE><PRE class=prog_in>(setq x (open fil "r") ct 0)</PRE><PRE class=prog_in>(while (read-line x)</PRE><PRE class=prog_in>(setq ct (1+ ct))</PRE><PRE class=prog_in>)</PRE><PRE class=prog_in_end>(close x)</PRE> 这个代码运行后，文件显示打不开，被cad占用
页:
[1]