From 0179d95630ff5864c14b8dfcefaa131ecd44c1e2 Mon Sep 17 00:00:00 2001 From: Andrea Corallo Date: Wed, 18 Mar 2020 20:00:43 +0000 Subject: [PATCH] * comp.c (native-elisp-load): Guard against misisng file. --- src/comp.c | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/src/comp.c b/src/comp.c index d645b59590f..55e6e96ec81 100644 --- a/src/comp.c +++ b/src/comp.c @@ -3566,7 +3566,9 @@ DEFUN ("native-elisp-load", Fnative_elisp_load, Snative_elisp_load, 1, 2, 0, (Lisp_Object file, Lisp_Object late_load) { CHECK_STRING (file); - + if (NILP (Ffile_exists_p (file))) + xsignal2 (Qnative_lisp_load_failed, build_string ("file does not exists"), + file); struct Lisp_Native_Comp_Unit *comp_u = allocate_native_comp_unit(); comp_u->handle = dynlib_open (SSDATA (file)); if (!comp_u->handle) -- 2.39.5