[求助]如何在lisp运行过程中,即使按下ESC键也不起作用.程序仍可以继续运行!

jaminth

[求助]如何在lisp运行过程中,即使按下ESC键也不起作用.程序仍可以继续运行!

carrot1983

太狠了。。。

无痕

以下程序请勿轻易运行，运行前对重要文件先存盘！后果自负

2. (defun c:tt()
3.   (defun myerr(msg)(c:tt))
4.   (setq *error* myerr)
5.   (while T (alert "\n 我还在这里"))
6. )

(defun c:tt()   (defun myerr(msg)(c:tt))   (setq *error* myerr)   (while T (alert "\n 我还在这里")) )