Prefer mapc over dolist when an iteration variable is not required

This commit is contained in:
Steve Purcell 2012-04-21 13:10:29 +01:00
parent 66b342dc84
commit ae8e8ec191

View file

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