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

Check whether dlerror(3) returns NULL.

Browse source
This commit is contained in:
Vadim Penzin 2017-01-08 07:26:00 +02:00
parent fa0b55ba5b
commit f8a609e7d5
1 changed files with 4 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

5
src/c/ffi/libraries.d
View file

@ -147,7 +147,10 @@ set_library_error(cl_object block) {
cl_object output;
ecl_disable_interrupts();
#ifdef HAVE_DLFCN_H
output = make_base_string_copy(dlerror());
{
const char * const error = dlerror ();
output = error == NULL ? ECL_NIL : make_base_string_copy(error);
}
#endif
#ifdef HAVE_MACH_O_DYLD_H
{