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

Move packages to read/write locks

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2010-10-24 17:52:53 +02:00
parent 1e3eb5b62a
commit c86c8bd5c0
7 changed files with 94 additions and 50 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/c/error.d
View file

@ -449,12 +449,14 @@ FElibc_error(const char *msg, int narg, ...)
{
cl_va_list args;
cl_object rest;
const char *error = strerror(errno);
cl_va_start(args, narg, narg, 0);
rest = cl_grab_rest_args(args);
printf("%s\n", error);
FEerror("~?~%Explanation: ~A.", 3, make_constant_base_string(msg), rest,
make_constant_base_string(strerror(errno)));
make_constant_base_string(error));
}
#if defined(ECL_MS_WINDOWS_HOST) || defined(cygwin)