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