caddr => cl-caddr

core/autoload/packages.el

@@ -230,7 +230,7 @@ appropriate."
                               (format "+ %s %s -> %s"
                                       (s-pad-right (+ -max-len 2) " " (symbol-name (car pkg)))
                                       (s-pad-right 14 " " (doom--version-list-str (cadr pkg)))
-                                      (doom--version-list-str (caddr pkg))))
+                                      (doom--version-list-str (cl-caddr pkg))))
                             (--sort (string-lessp (symbol-name (car it))
                                                   (symbol-name (car other)))
                                     packages)
@@ -319,7 +319,7 @@ calls."
       (if (y-or-n-p (format "%s will be updated from %s to %s. Update?"
                             (car desc)
                             (doom--version-list-str (cadr desc))
-                            (doom--version-list-str (caddr desc))))
+                            (doom--version-list-str (cl-caddr desc))))
           (message "%s %s"
                    (if (doom-update-package package)
                        "Updated"

core/core-lib.el

@@ -3,6 +3,7 @@
 (require 'dash)
 (require 's)
 (require 'f)
+(eval-when-compile (require 'cl-lib))
 
 (defvar __DIR__ nil  "The directory of the currently loaded file (set by `@load')")
 (defvar __FILE__ nil "The full path of the currently loaded file (set by `@load')")

modules/feature/evil/autoload/evil.el

@@ -10,7 +10,7 @@ flags."
                         "\\(\\(?::\\(?:[phtreS~.]\\|g?s[^: $]+\\)\\)*\\)"))
         case-fold-search)
     (dolist (match (s-match-strings-all regexp file-name))
-      (let ((flags (split-string (caddr match) ":" t))
+      (let ((flags (split-string (cl-caddr match) ":" t))
             (path (file-relative-name
                    (pcase (cadr match)
                      ("@" (doom-project-root))

modules/feature/file-templates/config.el

@@ -102,8 +102,8 @@
       (require 'yasnippet)
       (unless yas-minor-mode
         (yas-minor-mode-on))
-      (let ((snippet (let ((template (cdar (mapcan #'(lambda (table) (yas--fetch table key))
-                                                   (yas--get-snippet-tables mode)))))
+      (let ((snippet (let ((template (cdar (cl-mapcan #'(lambda (table) (yas--fetch table key))
+                                                      (yas--get-snippet-tables mode)))))
                        (if template (yas--template-content template) nil))))
         (when (and yas-minor-mode snippet)
           (yas-expand-snippet snippet)