Refactor cl-loop => cl-member in doom//byte-compile

This commit is contained in:
Henrik Lissner 2018-02-19 01:20:53 -05:00
parent 3c203b2cd4
commit 1a20c49ef3
No known key found for this signature in database
GPG Key ID: 5F6C0EA160557395

View File

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