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

Merge branch 'develop' into 'develop'

Browse source 
Check whether dlerror(3) returns NULL.

See merge request !41
This commit is contained in:
Daniel Kochmański 2017-01-09 17:05:14 +00:00
commit f3198d2fbc
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
{