Log: Hide *log-level* implementation detail

Return the symbol that was used to set the log level, not the numeric code it gets transformed into.
stumpwm · Oct 15, 2023 · 962d171 · 962d171
1 parent 2f0e74b
commit 962d171
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/lisp/log.lisp b/lisp/log.lisp
@@ -114,7 +114,8 @@ level is not high enough."
 :error  Something went wrong...
 :fatal  Bye bye compositor..."
   (check-valid-log-level new-level)
-  (setf *log-level* (get-log-level-data new-level)))
+  (setf *log-level* (get-log-level-data new-level))
+  new-level)
 
 (defun log-colored-p ()
   cl-ansi-text:*enabled*)