caddr => cl-caddr

This commit is contained in:
Henrik Lissner
2017-02-13 04:41:27 -05:00
parent 6f67dff8f2
commit b4e9f1312d
4 changed files with 6 additions and 5 deletions

View File

@@ -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"

View File

@@ -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')")