From 936d616a3a5fbddd87464a83a1fe399ed9ee3800 Mon Sep 17 00:00:00 2001 From: Francois-Rene Rideau <fare@tunes.org> Date: Tue, 1 Nov 2011 18:40:32 -0400 Subject: [PATCH] 2.018.2: fix issue with recursing through logical pathnames in LispWorks. Thanks to p-cos for reporting the bug and a fix. --- asdf.asd | 2 +- asdf.lisp | 12 +++++++----- 2 files changed, 8 insertions(+), 6 deletions(-) diff --git a/asdf.asd b/asdf.asd index ffd386a8..13c84f6b 100644 --- a/asdf.asd +++ b/asdf.asd @@ -14,7 +14,7 @@ :licence "MIT" :description "Another System Definition Facility" :long-description "ASDF builds Common Lisp software organized into defined systems." - :version "2.018.1" ;; to be automatically updated by bin/bump-revision + :version "2.018.2" ;; to be automatically updated by bin/bump-revision :depends-on () :components ((:file "asdf") diff --git a/asdf.lisp b/asdf.lisp index 6ed5281d..991266d8 100644 --- a/asdf.lisp +++ b/asdf.lisp @@ -1,5 +1,5 @@ ;;; -*- mode: Common-Lisp; Base: 10 ; Syntax: ANSI-Common-Lisp -*- -;;; This is ASDF 2.018.1: Another System Definition Facility. +;;; This is ASDF 2.018.2: Another System Definition Facility. ;;; ;;; Feedback, bug reports, and patches are all welcome: ;;; please mail to <asdf-devel@common-lisp.net>. @@ -107,7 +107,7 @@ ;; "2.345.6" would be a development version in the official upstream ;; "2.345.0.7" would be your seventh local modification of official release 2.345 ;; "2.345.6.7" would be your seventh local modification of development version 2.345.6 - (asdf-version "2.018.1") + (asdf-version "2.018.2") (existing-asdf (find-class 'component nil)) (existing-version *asdf-version*) (already-there (equal asdf-version existing-version))) @@ -2974,7 +2974,7 @@ output to *VERBOSE-OUT*. Returns the shell's exit code." #+cormanlisp (win32:system command) - + #+ecl ;; courtesy of Juan Jose Garcia Ripoll (ext:system command) @@ -3868,8 +3868,10 @@ with a different configuration, so the configuration would be re-read then." (filter-logical-directory-results directory entries #'(lambda (f) - (make-pathname :defaults directory :version (pathname-version f) - :name (pathname-name f) :type (pathname-type f)))))) + (make-pathname :defaults directory + :name (pathname-name f) :type (pathname-type f) + :version (let ((it (pathname-version f))) + (unless (eq it :unspecific) it))))))) (defun* directory-asd-files (directory) (directory-files directory *wild-asd*)) -- GitLab