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