Permalink
Browse files

(deflog-macros): use symbols in intern, so it will work on lisps with

different default case then :upcase
  • Loading branch information...
1 parent f99a969 commit 7df28373a2563355fc1eb927c8177745917ad855 Max Mikhanosha committed Feb 27, 2012
Showing with 2 additions and 2 deletions.
  1. +2 −2 src/logging-macros.lisp
View
@@ -24,8 +24,8 @@
(defmacro deflog-macros (levels)
(let (list)
(dolist (level levels)
- (let ((log-macro-name (intern (format nil "LOG-~a" level)))
- (level-name (intern (format nil "+LOG-LEVEL-~a+" level))))
+ (let ((log-macro-name (intern (format nil "~a-~a" '#:log level)))
+ (level-name (intern (format nil "+~a-~a+" '#:log-level level))))
(push `(defmacro ,log-macro-name (&rest args &environment env)
"
Submit log message to the logging system. Whenever

0 comments on commit 7df2837

Please sign in to comment.