 (define-globalized-minor-mode global-log4cl-mode log4cl-mode turn-on-log4cl-mode)
 
 (provide 'log4cl)
+

       ,@(rest (log4cl-make-levels-menu 'log4cl-package-logger)))
      ("Source File" :filter log4cl-filter-file
       ,@(rest (log4cl-make-levels-menu 'log4cl-file-logger)))
      ("Current Form" :filter log4cl-filter-defun
       ,@(rest (log4cl-make-levels-menu 'log4cl-defun-logger))))))

(defun log4cl-filter-root (args)

  (defun log4cl-package-debu9 (&optional arg) (interactive "P") (log4cl-cmd-set-package-level arg 15))
  (defun log4cl-package-reset (&optional arg) (interactive "P") (log4cl-cmd-set-package-level arg :reset))

  (defun log4cl-file-unset   (&optional arg) (interactive "P") (log4cl-cmd-set-file-level arg nil))
  (defun log4cl-file-off   (&optional arg) (interactive "P") (log4cl-cmd-set-file-level arg 0))
  (defun log4cl-file-fatal (&optional arg) (interactive "P") (log4cl-cmd-set-file-level arg 1))
  (defun log4cl-file-error (&optional arg) (interactive "P") (log4cl-cmd-set-file-level arg 2))
