lisp - 调试级 Lisp

Question

有什么方法可以防止 Common Lisp 控制台在我打印出错误后打印消息？

例如如果我使用这条指令

(错误“无效输入”)

控制台打印出来

ERROR: Invalid Input"

  1 (abort) Return to debug level 3.
  2 Return to level 2.
  3 Return to debug level 2.
  4 Return to level 1.
  5 Return to debug level 1.
  6 Return to level 0.
  7 Return to top loop level 0.

有没有办法在错误信息后不打印任何东西？

Answer 1

CL-USER 50 > (setf *debugger-hook*
                   (lambda (c v)
                     (format t "~a~%" c)
                     (abort c)))
#<anonymous interpreted function 4060001CBC>

CL-USER 51 > (error "Invalid input")
Invalid input