Skip to content
Snippets Groups Projects
Commit 83f86df8 authored by Francois-Rene Rideau's avatar Francois-Rene Rideau
Browse files

2.019.6: Fix to split-absolute-pathnames, by Sergey Katrevich.

parent c0b648ec
No related branches found
No related tags found
No related merge requests found
...@@ -14,7 +14,7 @@ ...@@ -14,7 +14,7 @@
:licence "MIT" :licence "MIT"
:description "Another System Definition Facility" :description "Another System Definition Facility"
:long-description "ASDF builds Common Lisp software organized into defined systems." :long-description "ASDF builds Common Lisp software organized into defined systems."
:version "2.019.5" ;; to be automatically updated by bin/bump-revision :version "2.019.6" ;; to be automatically updated by bin/bump-revision
:depends-on () :depends-on ()
:components :components
((:file "asdf") ((:file "asdf")
......
;;; -*- mode: Common-Lisp; Base: 10 ; Syntax: ANSI-Common-Lisp -*- ;;; -*- mode: Common-Lisp; Base: 10 ; Syntax: ANSI-Common-Lisp -*-
;;; This is ASDF 2.019.5: Another System Definition Facility. ;;; This is ASDF 2.019.6: Another System Definition Facility.
;;; ;;;
;;; Feedback, bug reports, and patches are all welcome: ;;; Feedback, bug reports, and patches are all welcome:
;;; please mail to <asdf-devel@common-lisp.net>. ;;; please mail to <asdf-devel@common-lisp.net>.
...@@ -107,7 +107,7 @@ ...@@ -107,7 +107,7 @@
;; "2.345.6" would be a development version in the official upstream ;; "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.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 ;; "2.345.6.7" would be your seventh local modification of development version 2.345.6
(asdf-version "2.019.5") (asdf-version "2.019.6")
(existing-asdf (find-class 'component nil)) (existing-asdf (find-class 'component nil))
(existing-version *asdf-version*) (existing-version *asdf-version*)
(already-there (equal asdf-version existing-version))) (already-there (equal asdf-version existing-version)))
...@@ -3157,7 +3157,8 @@ located." ...@@ -3157,7 +3157,8 @@ located."
"Invalid relative pathname ~A~@[ ~?~]" x fmt args)) "Invalid relative pathname ~A~@[ ~?~]" x fmt args))
x)) x))
(defun* split-absolute-pathnames (x fmt &rest args) (defun* split-absolute-pathnames (x fmt &rest args)
(loop :for dir :in (split-string x :separator (inter-directory-separator)) (loop :for dir :in (split-string
x :separator (string (inter-directory-separator)))
:do (apply 'ensure-absolute-pathname* dir fmt args) :do (apply 'ensure-absolute-pathname* dir fmt args)
:collect dir)) :collect dir))
(defun getenv-absolute-pathname (x &aux (s (getenv x))) (defun getenv-absolute-pathname (x &aux (s (getenv x)))
......
...@@ -42,4 +42,6 @@ ...@@ -42,4 +42,6 @@
(asdf::version-satisfies (asdf:asdf-version) "2.000")) (asdf::version-satisfies (asdf:asdf-version) "2.000"))
(assert (assert
(not (asdf::version-satisfies (asdf:asdf-version) "666"))) (not (asdf::version-satisfies (asdf:asdf-version) "666")))
(assert
(equal (asdf::split-absolute-pathnames "/foo:/bar" "baz") '("/foo" "/bar")))
) )
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment