mirror of
https://github.com/correl/melpa.git
synced 2024-11-22 19:18:39 +00:00
Use idiomatic "not" in place of "(zerop (length lst))"
This commit is contained in:
parent
f17809801c
commit
8e8696fa14
1 changed files with 1 additions and 1 deletions
|
@ -623,7 +623,7 @@ TARGET-SUBDIR is a directory relative to TARGET."
|
|||
(let ((failed (loop for pkg in (mapcar 'car package-build-alist)
|
||||
when (not (package-build-archive-ignore-errors pkg))
|
||||
collect pkg)))
|
||||
(if (zerop (length failed))
|
||||
(if (not failed)
|
||||
(princ "\nSuccessfully Compiled All Packages\n")
|
||||
(princ "\nFailed to Build the Following Packages\n")
|
||||
(princ (mapconcat 'symbol-name failed "\n"))))
|
||||
|
|
Loading…
Reference in a new issue