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

dlerror may return NULL, use safe variant

Browse source
This commit is contained in:
Daniel Kochmański 2017-01-09 18:13:05 +01:00
parent f3198d2fbc
commit 9c80353aba
1 changed files with 1 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

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

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