github/melpa
1
0
Fork 0
mirror of https://github.com/correl/melpa.git synced 2024-11-14 19:19:32 +00:00
Code Issues Projects Releases Packages Wiki Activity

Use idiomatic "not" in place of "(zerop (length lst))"

Browse source
This commit is contained in:
Steve Purcell 2012-05-04 20:34:28 +01:00
parent f17809801c
commit 8e8696fa14
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
package-build.el
View file

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