Skip to content

Commit

Permalink
Fix a stupid bug.
Browse files Browse the repository at this point in the history
  • Loading branch information
fukamachi committed Apr 3, 2018
1 parent cec65f7 commit bf5f98a
Showing 1 changed file with 6 additions and 6 deletions.
12 changes: 6 additions & 6 deletions logger/level.lisp
Expand Up @@ -72,10 +72,10 @@
(99 :unknown)))
data))))
(post-with-time (level-logger-logger logger)
tag data time)))
tag data time))))

(defmacro with-log-level (level &body body)
`(let ((*log-level* ,(if (constantp level)
(canonicalize-log-level level)
`(canonicalize-log-level ,level))))
,@body)))
(defmacro with-log-level (level &body body)
`(let ((*log-level* ,(if (constantp level)
(canonicalize-log-level level)
`(canonicalize-log-level ,level))))
,@body))

0 comments on commit bf5f98a

Please sign in to comment.