[LISP]lisp程序中如何判断自己编制的lisp程序是否已被加载？

sucy

在lisp程序中如何判断自己编制的lisp程序是否已被加载？我查到了如下说法： 〔引用〕在调用用户自己定义的函数之前,应先将包含该函数的文件调入内存(LOAD "文件").但如果每次调用前都加载该程序,则会浪费很多时间.因此判别文件是否已经调入内存,则是非常重要的,这种用法在菜单文件十分普遍 [RECTAN] if (not rectan) (load "les2"));(rectan); 在文件内同样可以实现同样的检测。〔引用结束〕。 但我测试了一下，对于lisp程序好像不好使，请高手帮忙解决。

meflying

怎么会不好使呢?是你没用对吧... 如你定义这样: (defun c:test() ... ... ) 则应为if (not c:test) (load "les2")) (c:test) 如果定义为: (defun test() ... ) 则应为if (not test) (load "les2")) (test)

Ea

2. (defun _@ld (file)
3.    (if (and
4.   (not (member file _qaratoml))
5.   (load (strcat _prefix file))
6.            )
7.        (setq _qaratoml (cons file _qaratoml))
8.    )
9.    (princ)
10. )

(defun _@ld (file)    (if (and   (not (member file _qaratoml))   (load (strcat _prefix file))            )        (setq _qaratoml (cons file _qaratoml))    )    (princ) )

这是一个软件中定义的Load函数，原理是构造一个表，记录加载过的Lisp。当加载Lsp文件时先判断表内是否有要加载的文件名。

无痕

判断是否已经加载没有必要


但是判断是否冲突，很有必要


如一个程序（c:tt)，cad已经有另外一个程序也是(c:tt),或cad的简写定义为 tt                                 *text


这样会冲突。如何判断并避开。是个有意思的问题。

BDYCAD

具體如如合用? 有點不理解那個 _qaratoml

Ea

BDYCAD发表于2004-4-9 20:11:00具體如如合用? 有點不理解那個 _qaratoml

_qaratoml 是表的名称，你可以用 _bdyatoml ：）

sucy

太感谢大家了，尤其是meflying，看来这是个较初级的错误，见笑了。 另外，无痕的问题有解决吗？

龙龙仔

1.如一个程序(c:tt)，cad已经有另外一个程序也是(c:tt)
->不就是MEFLYING的(NOT C:TT) 2.cad的簡寫定義為 tt *text
->可自已先做個表來查。

无痕

1.如一个程序(c:tt)，cad已经有另外一个程序也是(c:tt) ->不就是MEFLYING的(NOT C:TT)

那样就不加载后一个了。但是我要两个（不同的程序）都加载而且都能用。

meflying

这个想法似曾相识啊，好象刚有人提过类似的。。。


假设两个都加载了，那你键入tt，你想运行谁呢？难道又是你想运行哪个，电脑就自动运行哪个吗？