Commit dada1116 authored by Francois-Rene Rideau's avatar Francois-Rene Rideau
Browse files

2.011.2: make some test pass with ECL.

Apparently, :unspecific as pathname type isn't that well liked by ECL.
parent 7a04de84
Loading
Loading
Loading
Loading
+1 −1
Original line number Diff line number Diff line
@@ -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
+2 −2
Original line number Diff line number Diff line
@@ -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 "")
+1 −1
Original line number Diff line number Diff line
@@ -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)))

+1 −1

File changed.

Contains only whitespace changes.