From 606bfb439cb8e569d320c3771e45ff04f0490e7c Mon Sep 17 00:00:00 2001
From: Francois-Rene Rideau <fare@tunes.org>
Date: Wed, 27 Oct 2010 11:25:34 -0700
Subject: [PATCH] 2.145: fix subdirectories on Lispworks lp#667379 - thanks to
 Fabien.

---
 asdf.lisp | 11 ++++++-----
 1 file changed, 6 insertions(+), 5 deletions(-)

diff --git a/asdf.lisp b/asdf.lisp
index 81ddb4af0..54e65763a 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.144") ;; bump this version when you modify this file.
+  (let* ((asdf-version "2.145") ;; bump this version when you modify this file.
          (existing-asdf (fboundp 'find-system))
          (existing-version *asdf-version*)
          (already-there (equal asdf-version existing-version)))
@@ -3280,9 +3280,9 @@ with a different configuration, so the configuration would be re-read then."
   (let* ((directory (ensure-directory-pathname directory))
          #-cormanlisp
          (wild (merge-pathnames*
-                #-(or abcl allegro scl)
+                #-(or abcl allegro lispworks scl)
                 (make-pathname :directory '(:relative :wild) :name nil :type nil :version nil)
-                #+(or abcl allegro scl) "*.*"
+                #+(or abcl allegro lispworks scl) "*.*"
                 directory))
          (dirs
           #-cormanlisp
@@ -3295,10 +3295,11 @@ with a different configuration, so the configuration would be re-read then."
                     #+digitool '(:directories t)
                     #+sbcl '(:resolve-symlinks nil))))
           #+cormanlisp (cl::directory-subdirs directory))
-         #+(or abcl allegro scl)
+         #+(or abcl allegro lispworks scl)
          (dirs (remove-if-not #+abcl #'extensions:probe-directory
                               #+allegro #'excl:probe-directory
-                              #+scl #'directory-pathname-p
+                              #+lispworks #'lw:file-directory-p
+                              #-(or abcl allegro lispworks) #'directory-pathname-p
                               dirs)))
     dirs))
 
-- 
GitLab