Lisp HUG Maillist Archive

accelerators and error-handling on mac

Searching a little bit in the list I found this message from Pekka :

>Hi, this minimal debugger works neatly. Thanks!

>(defun my-error-handler (&rest l)
>   (let ((backtrace (with-output-to-string (stream)
>                      (dbg:output-backtrace t stream))))
>     (princ (car l))
>     (terpri)
>    (princ backtrace)
>     (abort)))

>(setq *debugger-hook* 'my-error-handler)


Does this example really prevent any unexpected opening of the Terminal ?

-------------------------------------------------------
Denis Pousseur
70 rue de Wansijn
1180 Bruxelles, Belgique

Tel : 32 (0)2 219 31 09
Mail :  denis.pousseur@gmail.com
-------------------------------------------------------



Updated at: 2020-12-10 08:39 UTC