mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-21 03:51:47 -08:00
Code Issues Projects Releases Packages Wiki Activity

Fixed copying of FASL files in Windows

Browse source
This commit is contained in:
jgarcia 2007-05-22 15:51:35 +00:00
parent 35bba35c9d
commit 8219dde991
1 changed files with 6 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

12
src/c/load.d
View file

@ -64,16 +64,16 @@ copy_object_file(cl_object original)
err = unlink(copy->base_string.self) ||
symlink(original->base_string.self, copy->base_string.self);
#else
s = cl_concatenate(make_simple_base_string("copy ") +
original +
make_simple_base_string(" ") +
copy);
s = si_system(s);
err = code != MAKE_FIXNUM(0);
#if defined(mingw32) || defined(_MSC_VER)
err = !CopyFile(original->base_string.self, copy->base_string.self, 0);
#else
err = 1;
#endif
#endif
if (err) {
FEerror("Unable to copy file ~A to ~A", 2, original, copy);
}
return copy;
}
#ifdef ENABLE_DLOPEN