From 1a20c49ef3f2ae58525ac4c36ce133cee3e6e6c6 Mon Sep 17 00:00:00 2001 From: Henrik Lissner Date: Mon, 19 Feb 2018 01:20:53 -0500 Subject: [PATCH] Refactor cl-loop => cl-member in doom//byte-compile --- core/core-packages.el | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) diff --git a/core/core-packages.el b/core/core-packages.el index 36afc6fb7..1bb95d890 100644 --- a/core/core-packages.el +++ b/core/core-packages.el @@ -649,9 +649,7 @@ If RECOMPILE-P is non-nil, only recompile out-of-date files." nconc (nreverse (doom-packages--files doom-core-dir "\\.el$")) else if (file-directory-p target) nconc (nreverse (doom-packages--files target "\\.el$")) - else if (cl-loop for dir in doom-psuedo-module-dirs - if (file-in-directory-p target dir) - return dir) + else if (cl-member target doom-psuedo-module-dirs :test #'file-in-directory-p) nconc (nreverse (doom-packages--files it "\\.el$")) else if (string-match "^\\([^/]+\\)/\\([^/]+\\)$" target) nconc (nreverse (doom-packages--files