Better handling of local browser open errors.

This commit is contained in:
David Botton 2021-10-29 17:29:34 -04:00
parent 37bd051afa
commit 2b34ffee0d

View file

@ -113,5 +113,8 @@ function. If BOOT-FILE is nil path is removed."
(defun open-browser (&key (url "http://127.0.0.1:8080"))
"Launch on os a web browser on local machine to URL. See BROWSER-OPEN
for openning windows on remote machines."
(trivial-open-browser:open-browser url))
(handler-case (progn
(trivial-open-browser:open-browser url))
(error (c)
(format t "Unable to open browser.~%~%~A" c))))