From d621bd5146d8aa53a5f7af51643225b9a1d42f92 Mon Sep 17 00:00:00 2001 From: Francois-Rene Rideau <fare@tunes.org> Date: Thu, 28 Oct 2010 15:56:14 -0700 Subject: [PATCH] 2.146: rename an internal function while I can --- asdf.lisp | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/asdf.lisp b/asdf.lisp index 54e65763..43757f6f 100644 --- a/asdf.lisp +++ b/asdf.lisp @@ -71,7 +71,7 @@ (eval-when (:load-toplevel :compile-toplevel :execute) (defvar *asdf-version* nil) (defvar *upgraded-p* nil) - (let* ((asdf-version "2.145") ;; bump this version when you modify this file. + (let* ((asdf-version "2.146") ;; bump this version when you modify this file. (existing-asdf (fboundp 'find-system)) (existing-version *asdf-version*) (already-there (equal asdf-version existing-version))) @@ -3303,18 +3303,18 @@ with a different configuration, so the configuration would be re-read then." dirs))) dirs)) -(defun collect-subdirs (directory collectp recursep collector) +(defun collect-sub*directories (directory collectp recursep collector) (when (funcall collectp directory) (funcall collector directory)) (dolist (subdir (subdirectories directory)) (when (funcall recursep subdir) - (collect-subdirs subdir collectp recursep collector)))) + (collect-sub*directories subdir collectp recursep collector)))) (defun collect-sub*directories-with-asd (directory &key (exclude *default-source-registry-exclusions*) collect) - (collect-subdirs + (collect-sub*directories directory #'directory-has-asd-files-p #'(lambda (x) (not (member (car (last (pathname-directory x))) exclude :test #'equal))) -- GitLab