From b4b2d12f7e05758bd93ea71422fba6d13c67a60b Mon Sep 17 00:00:00 2001 From: Juan Jose Garcia Ripoll Date: Sat, 14 Nov 2009 17:35:42 +0100 Subject: [PATCH] src/c/pathname.d: use the (APPEND ... NIL) idiom to ensure that a fresh list is produced. --- src/c/pathname.d | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/c/pathname.d b/src/c/pathname.d index 62acec2b8..b438f27f4 100644 --- a/src/c/pathname.d +++ b/src/c/pathname.d @@ -834,7 +834,7 @@ ecl_merge_pathnames(cl_object path, cl_object defaults, cl_object default_versio directory = path->pathname.directory; else if (!Null(defaults->pathname.directory)) directory = ecl_append(defaults->pathname.directory, - CDR(path->pathname.directory)); + CDR(path->pathname.directory)); else directory = path->pathname.directory; if (Null(name = path->pathname.name))