mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-16 06:12:25 -08:00
Code Issues Projects Releases Packages Wiki Activity

src/c/pathname.d: use the (APPEND ... NIL) idiom to ensure that a fresh list is produced.

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2009-11-14 17:35:42 +01:00
parent 4b38dd326e
commit b4b2d12f7e
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/c/pathname.d
View file

@ -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))