From d35a4c46f2762514faf66ae4a1b50b5e1e47db4e Mon Sep 17 00:00:00 2001 From: Stelian Ionescu Date: Wed, 21 Jan 2009 15:15:06 +0100 Subject: [PATCH] Fix AS-DIRECTORY logic of CONCATENATE-PATHS. --- pathnames/file-path.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/pathnames/file-path.lisp b/pathnames/file-path.lisp index 898fec1..c1deece 100644 --- a/pathnames/file-path.lisp +++ b/pathnames/file-path.lisp @@ -190,7 +190,7 @@ (assert (every #'file-path-p paths)) (when (null paths) (return* nil)) (let ((as-directory - (stringp (file-path-name (lastcar paths)))) + (not (stringp (file-path-name (lastcar paths))))) (big-namestring (apply #'join (file-path-directory-delimiter (car paths)) (mapcar #'file-path-namestring paths)))) -- 2.11.4.GIT