cco/cl-scopes
3
0
Fork 0
Code Issues 1 Pull requests Releases Wiki Activity Actions

logging: improve layout pattern

Browse source
This commit is contained in:
Helmut Merz 2024-07-04 11:51:14 +02:00
parent b7502e5e77
commit 012999fc22
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
logging.lisp
View file

@ -17,7 +17,7 @@
(defun setup(cfg)
(let ((loglevel (config:from-env :loglevel (loglevel cfg)))
(logfile (config:from-env :logfile (logfile cfg)))
(pat "%&%<%I%;<;;>;-5p [%D{%H:%M:%S}] %g{}{}{:downcase}%:; ;F%2.2N - %:_%m%>%n")
(pat "%&%<%I%;<;;>;-5p [%D{%H:%M:%S}] %g{}{}{:downcase}:%2.2N%C{1}{}{:downcase} - %:_%m%>%n")
params)
(if (stringp loglevel)
(setf loglevel (util:to-keyword loglevel)))