[LISP]如何自定义错误处理函数？

blue123

程式中经常强行退出,

如何自定义错误处理函数？请教！！！

王咣生

(defun #err (s)
    (princ)
)

(defun c:test ( / $orr)
    (setq $orr *error*)
    (setq *error* #err)   ;当程序出错时就会执行#err函数

    ;...main code...

    (setq *error* $orr)
    (princ)
)

didini

没看得太明白！

liu22737

在程序开始部分加(setq *error*  #err)

(setq *error*  #err) ;;;;;;;;;  #err(msg)为子程序,把他付值给*error*，程序运行

中出错时调用它，

meflying

程序出错时,系统会自动调用*error*函数,这个函数系统已经定义,你也可以重新定义,但如果重新定义,就会导致其他程序出错时也使用了你定义的这个出错函数,导致出错提示混乱,,,所以定义一个临时的错误处理函数,在程序中暂时代替*error*函数,程序的最后再恢复系统的*error*函数,就是(setq *error* #err),前面那句就是保存系统的*error*函数,以便恢复,,

另,在自定义的出错函数里最好也恢复一下,否则真出错就没有恢复了,更改如下:

(defun #err (s)
    (princ)

  (setq *error* $orr)
)

(defun c:test ( / )
    (setq $orr *error*)
    (setq *error* #err)   ;当程序出错时就会执行#err函数

    ;...main code...

    (setq *error* $orr)
    (princ)
)

blue123

请问飞哥：我编了20个lisp程式（都在用），下面的一段代码可不可以只用一个

(defun #err (s)
    (princ)

  (setq *error* $orr)
)

 

meflying

如果你的这20个LISP程序的错误处理要求都相同的话,可以的

zhaozwf

不错，又学到一招，谢谢

ryljun

还是不懂啊！

preone

学习~~