求助： 用什么方法在中止Autolisp执行时，可以隐藏或取消出错信息？

jls

meflying,谢谢您的帮助，有空帮我看看(setq *error* errtmp)语句如何使用，放到什么地方合适。下面为本人在程序中使用的样例。 ;;;主应用程序
(defun mian ()
;;前面的lisp语句
;;前面的lisp语句
(exit1) ;_自定义出错跳出函数
(princ "\n 程序终止，跳过执行后面语句")
;;后面的lisp语句
;;后面的lisp语句
;;后面的lisp语句
;;后面的lisp语句
(princ)
)
;;;自定义出错跳出函数
(defun exit1 ()
(setq errtmp *error*)
(defun *error* (msg)
(princ)
)
(exit)
;;(setq *error* errtmp)不知此语句如何使用才能发挥作用，使的原来的(EXIT)函数提示不发生变化。
)