[LISP程序]：出一道题

daziran

2. 
   
3. (setq k t)
   
4. (setq i 0)
   
5. (while k
   
6.   (print i)
   
7.   (setq i (1+ i))
   
8.   
   
9. )
   
10. (print "退出!"
    

<br /> (setq k t)<br /> (setq i 0)<br /> (while k<br />   (print i)<br />   (setq i (1+ i))<br />   <br /> )<br /> (print "退出!"<br />

上述代码会进入一个死循环。
您能否加入一个控制，在用户按回车键（或鼠标键）时脱出来？

lijiao

在循环中加入GRREAD函数获取键盘和鼠标输入，再加以判断。

daziran

lijiao 说的有道理。这是一个方案。但不够完善。
因为如果鼠标和键盘都不动，则GRREAD处于等待状态，程序不执行下一语句。亦即在退出之前，为了维持程序正常循环，必须不停的移动鼠标或键盘。

iVox

*error*也许可以达到你的想法？
不过我不太确定。。

我试过了，确实可以
比如
(defun *error* (s)
  (alert "test")
)
(setq k t)
(setq i 0)
(while k
  (print i)
  (setq i (1+ i))
)

实际运行时，你可以按ESC键终止死循环，这时就会调用前面定义的*ERROR*，出现那个消息框。

于是，你就可以把(alert "test")替换成你的另一段程序流程。
当然这只是一个构架，你要记得保存和恢复原有的*ERROR*函数才更完善。

梦断江南

最初由 daziran 发布
[B]lijiao 说的有道理。这是一个方案。但不够完善。
因为如果鼠标和键盘都不动，则GRREAD处于等待状态，程序不执行下一语句。亦即在退出之前，为了维持程序正常循环，必须不停的移动鼠标或键盘。 [/B]

循环中加一个将当前gread状态与已保存的gread状态的比较语句
如果不等,执行(quit)或(exit)跳出lsp,如果相等,继续循环

daziran

谢谢iVox ，用*error*是个方案，但很困难，因为进入循环后，能插入Esc控制的可能也许只有百分之一。狂按Esc ，运气好时就能退出 ：）
谢谢梦断江南 ，梦斑竹不仅给我加过分，还直接提供帮助。问题是你无法从当前gread中脱出来（假如不是不停的移动鼠标或键盘的话），自然也无法进行比较了。