diff --git a/asdf.asd b/asdf.asd index ffd386a850ef2165e9386d6b1b1a1f9f08762557..13c84f6b333399970efc17a02a309b1fd74cd6b5 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 6ed5281d117fb77ef48fda47a22d0812da238744..991266d8051f3c4c57d4450445cb629fb20332f3 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*))