From dada11169da0082a3b3aade5a17984335c364ce6 Mon Sep 17 00:00:00 2001 From: Francois-Rene Rideau <fare@tunes.org> Date: Fri, 3 Dec 2010 16:21:53 -0500 Subject: [PATCH] 2.011.2: make some test pass with ECL. Apparently, :unspecific as pathname type isn't that well liked by ECL. --- asdf.asd | 2 +- asdf.lisp | 4 ++-- doc/asdf.texinfo | 2 +- test/test-configuration.script | 2 +- 4 files changed, 5 insertions(+), 5 deletions(-) diff --git a/asdf.asd b/asdf.asd index 317bffef..d8a63b8f 100644 --- a/asdf.asd +++ b/asdf.asd @@ -12,7 +12,7 @@ :licence "MIT" :description "Another System Definition Facility" :long-description "ASDF builds Common Lisp software organized into defined systems." - :version "2.011.1" + :version "2.011.2" ;;:version #.(asdf:asdf-version) ; how do we make that the *described* ASDF's version rather than the *previously loaded* ASDF's version? :depends-on () :components diff --git a/asdf.lisp b/asdf.lisp index 8c33a074..8a596d92 100644 --- a/asdf.lisp +++ b/asdf.lisp @@ -78,7 +78,7 @@ ;; "2.345.6" would be a development version in the official upstream ;; "2.345.0.7" would be your local modification of an official release ;; "2.345.6.7" would be your local modification of a development version - (asdf-version "2.011.1") + (asdf-version "2.011.2") (existing-asdf (fboundp 'find-system)) (existing-version *asdf-version*) (already-there (equal asdf-version existing-version))) @@ -496,7 +496,7 @@ starting the separation from the end, e.g. when called with arguments ;; Giving :unspecific as argument to make-pathname is not portable. ;; See CLHS make-pathname and 19.2.2.2.3. ;; We only use it on implementations that support it. - (or #+(or ccl ecl gcl lispworks sbcl) :unspecific))) + (or #+(or ccl gcl lispworks sbcl) :unspecific))) (destructuring-bind (name &optional (type unspecific)) (split-string filename :max 2 :separator ".") (if (equal name "") diff --git a/doc/asdf.texinfo b/doc/asdf.texinfo index ee6a1fc4..7d721276 100644 --- a/doc/asdf.texinfo +++ b/doc/asdf.texinfo @@ -1937,7 +1937,7 @@ contains the following: @end example Then when someone else (call her Y) checks out a copy of this -repository, she need only add +repository, she need only add @example (:include "/path/to/my/checkout/directory/asdf.conf") @end example diff --git a/test/test-configuration.script b/test/test-configuration.script index 6533208e..b8a8b2bf 100644 --- a/test/test-configuration.script +++ b/test/test-configuration.script @@ -47,7 +47,7 @@ "dir5/dir7/" ; foo5 "dir8/" ; foo6 "dir9/dira/" ; foo7 should be found because of :here :tree - "dir9/dira/dirc" ; foo8 ditto + "dir9/dira/dirc/" ; foo8 ditto "dir9/dirb/") ; foo9 should /not/ be found -- not under :here :tree :collect (under-test-directory dir))) -- GitLab