From ae8e8ec191a5d3f5bbf4395ec886ca78979d1f03 Mon Sep 17 00:00:00 2001 From: Steve Purcell Date: Sat, 21 Apr 2012 13:10:29 +0100 Subject: [PATCH] Prefer mapc over dolist when an iteration variable is not required --- package-build.el | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/package-build.el b/package-build.el index 7f3084da..5bc88657 100644 --- a/package-build.el +++ b/package-build.el @@ -576,8 +576,7 @@ of the same-named package which is to be kept." (stale-archives (loop for built in package-build-archive-alist when (not (memq (car built) known-package-names)) collect built))) - (dolist (stale stale-archives) - (pb/remove-archive stale)))) + (mapc 'pb/remove-archive stale-archives))) (defun package-build-initialize () "Load the recipe and archive-contents files."