mirror of
https://github.com/openbsd/ports.git
synced 2026-06-18 07:24:23 +02:00
semarie
7 lines
152 B
Common Lisp
7 lines
152 B
Common Lisp
;; define a debugger hook which exit early
|
|
(setf *debugger-hook*
|
|
(lambda (c fun)
|
|
(princ c)
|
|
(si::tpl-backtrace)
|
|
(quit 1)))
|