Handy if you want screen popups when running/testing newlisp or notifications even when not using error-event..
You can adjust xmessage from your Xdefaults or from /usr/lib/X11/app-defaults/
Code: Select all
;-- put this in your init.lsp for every day error popups, disappears after 10 seconds
(define (handler) (exec { xmessage -center -timeout 10 -title "newLisp error console" -file -} (append {Error# } (error-text (error-number))) ))
(error-event 'handler)