Convert condition to list.

This commit is contained in:
Dominik Pantůček 2024-01-16 22:01:27 +01:00
parent 65c7155ba3
commit 3629844743

View file

@ -74,8 +74,8 @@
(handle-exceptions (handle-exceptions
exn exn
(let () (let ()
(log-warning "DokuWiki (~A) exception ~A" fname exn) (log-warning "DokuWiki (~A) exception ~A" fname (condition->list exn))
(stdout-printf "DokuWiki (~A) exception ~A" fname exn) (stdout-printf "DokuWiki (~A) exception ~A" fname (condition->list exn))
'()) '())
(with-input-from-file fname (with-input-from-file fname
parse-dokuwiki-users-auth))) parse-dokuwiki-users-auth)))