                                   (setq levels (append (remove :unset levels)
                                                        (list :unset)))))
                               ;; Remove reset if logger has set children
-                              (unless (plusp (log4slime-children-level-count logger))
+                              (unless (cl-plusp (log4slime-children-level-count logger))
                                 (setq levels (remove :reset levels)))
                               levels)
                             for name = (log4slime-level-name level)
                             for shortcut = (car (rassoc level log4slime-menu-levels))
                             when shortcut
                             collect (cons shortcut level)))
-                (setq level-keys (copy-list choices))
+                (setq level-keys (cl-copy-list choices))
                 ;; Include unset key anyway in the actual keys, its silly to give user
                 ;; error if hes trying to unset already unset logger, even if we don't
                 ;; show option in the menu, indicating that its already unset

                                  (rassoc :unset log4slime-menu-levels))
                         `(,(log4slime-level-menu-item info-symbol :unset)))
                     ;; fatal through debug
                     ,@(loop for level from 0 to 15
                             when (rassoc level log4slime-menu-levels)
                             collect (log4slime-level-menu-item info-symbol level))
                     ;; reset children
                     ,@(when (rassoc :reset log4slime-menu-levels)
                         `(["--single-line" nil :visible (and (plusp (log4slime-children-level-count ,info-symbol)))]
                           ["--space" nil :visible (plusp (log4slime-children-level-count ,info-symbol))]
                           [:reset
                            (log4slime-set-level ',info-symbol :reset)
                            ;; (log4slime-set-level ,info-symbol :reset)
                            :label "Reset children"
                            :suffix (format "(%d)  " (log4slime-children-level-count ,info-symbol))
                            :visible (plusp (log4slime-children-level-count ,info-symbol))])))))
    menu))



  "If its a file logger, change display name to be relative to the current buffer"
  (let ((file (log4slime-logger-file info)))
    (when (and file (file-name-absolute-p file))
      (setf (cl-getf info :display-name) (file-relative-name file))))
  info)

(defun log4slime-log-category-menu (event)
