   (let* ((list-1 (mapcar (lambda (x)
                            (if (consp x) (car x) x))
                          list))
-         (list-2 (delete-duplicates (mapcar 'downcase list-1))))
+         (list-2 (cl-delete-duplicates (mapcar 'downcase list-1))))
     (/= (length list-1) (length list-2))))
 
 (defun log4slime-uncontrol-char (c)

                (setq case1 (log4slime-keys-case-sensitive-p level-keys))
                ;; (log-expr case1 choices)
                (setq choices
                      (loop for (key . level) in choices
                            ;; do (log-expr key level)
                            collect
                            (list

                           click-target :rest))))
            (setq start next)))
        (let ((common-args `(:package ,package :rest-all ,rest-all)))
          (cl-ecase click-target
            (:package `(,@common-args :package-offset ,package-offset))
            (:file `(,@common-args :file ,file))
            (:rest `(,@common-args :rest ,rest))))))))
