dgygs 发表于 2009-7-6 12:30:00

[求助]：这段程序什么意思？

<p>本人初学lisp,求高人指教下面的意思</p><p>(defun <a href="mailto:_@ld">_@ld</a> (file)<br/>&nbsp; (if (and (not (member file _tchatoml))<br/>&nbsp;&nbsp;&nbsp; (load (strcat _prefix file))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp; (setq _tchatoml (cons file _tchatoml))<br/>&nbsp; )<br/>&nbsp; (princ)<br/>)<br/></p>

liminnet 发表于 2009-7-6 15:51:00

页: [1]
查看完整版本: [求助]：这段程序什么意思？