From 8e8696fa14ffa5748df1e8b44d97e91f3bf23ac4 Mon Sep 17 00:00:00 2001 From: Steve Purcell Date: Fri, 4 May 2012 20:34:28 +0100 Subject: [PATCH] Use idiomatic "not" in place of "(zerop (length lst))" --- package-build.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/package-build.el b/package-build.el index e2a27401..ba1205bf 100644 --- a/package-build.el +++ b/package-build.el @@ -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"))))