                                   (rassoc :unset log4slime-menu-levels))
                          `(,(log4slime-level-menu-item info-symbol :unset)))
                      ;; fatal through debug
-                     ,@(loop for level from 0 to 15
+                     ,@(cl-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))]
+                        `(["--single-line" nil :visible (cl-plusp (log4slime-children-level-count ,info-symbol))]
+                           ["--space" nil :visible (cl-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))])))))
+                            :visible (cl-plusp (log4slime-children-level-count ,info-symbol))])))))
     menu))
 
 

               "(" (log4slime-format '(face log4slime-level-selection-face) "set") "/"
               (log4slime-format '(face log4slime-level-inherited-face) "inherited)"))
              (insert "\n\n")
              (incf nrows 2)
              ;; (print text to the buffer)
              (while (setq e (pop choices))
                (let ((cw1 (nth 0 (nth col cols)))

                         (log4slime-format '(face log4slime-level-selection-face) "%s"
                                        (upcase (log4slime-level-name (log4slime-logger-inherited-level logger))))
                         "\n\n"))
                      (cl-incf nrows 2))
                  (setq current-level (upcase
                                       (log4slime-format
                                        '(face log4slime-level-inherited-face) "%s"
                                        (log4slime-level-name (log4slime-logger-inherited-level logger)))))
                  (insert " --- Inherited level - " current-level "\n\n")
                  (cl-incf nrows 2))
                (setq cols (log4slime-layout-columns choices 2 (- (frame-width) 6) 100 3))
                (setq ncol (length cols))
                (setq col 0)
