From 83f86df8cedd278cb3a3519326b017ac4a073b22 Mon Sep 17 00:00:00 2001 From: Francois-Rene Rideau <tunes@google.com> Date: Wed, 14 Dec 2011 19:04:38 -0500 Subject: [PATCH] 2.019.6: Fix to split-absolute-pathnames, by Sergey Katrevich. --- asdf.asd | 2 +- asdf.lisp | 7 ++++--- test/test-utilities.script | 2 ++ 3 files changed, 7 insertions(+), 4 deletions(-) diff --git a/asdf.asd b/asdf.asd index 94552ac7b..20e89a0dc 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.019.5" ;; to be automatically updated by bin/bump-revision + :version "2.019.6" ;; to be automatically updated by bin/bump-revision :depends-on () :components ((:file "asdf") diff --git a/asdf.lisp b/asdf.lisp index c84e59e71..c423c9862 100644 --- a/asdf.lisp +++ b/asdf.lisp @@ -1,5 +1,5 @@ ;;; -*- 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: ;;; 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.019.5") + (asdf-version "2.019.6") (existing-asdf (find-class 'component nil)) (existing-version *asdf-version*) (already-there (equal asdf-version existing-version))) @@ -3157,7 +3157,8 @@ located." "Invalid relative pathname ~A~@[ ~?~]" x fmt args)) x)) (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) :collect dir)) (defun getenv-absolute-pathname (x &aux (s (getenv x))) diff --git a/test/test-utilities.script b/test/test-utilities.script index 55d982973..30197eff8 100644 --- a/test/test-utilities.script +++ b/test/test-utilities.script @@ -42,4 +42,6 @@ (asdf::version-satisfies (asdf:asdf-version) "2.000")) (assert (not (asdf::version-satisfies (asdf:asdf-version) "666"))) +(assert + (equal (asdf::split-absolute-pathnames "/foo:/bar" "baz") '("/foo" "/bar"))) ) -- GitLab