aboutsummaryrefslogtreecommitdiffstats
path: root/src/comp.c
diff options
context:
space:
mode:
Diffstat (limited to 'src/comp.c')
-rw-r--r--src/comp.c4
1 files changed, 3 insertions, 1 deletions
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,
3566 (Lisp_Object file, Lisp_Object late_load) 3566 (Lisp_Object file, Lisp_Object late_load)
3567{ 3567{
3568 CHECK_STRING (file); 3568 CHECK_STRING (file);
3569 3569 if (NILP (Ffile_exists_p (file)))
3570 xsignal2 (Qnative_lisp_load_failed, build_string ("file does not exists"),
3571 file);
3570 struct Lisp_Native_Comp_Unit *comp_u = allocate_native_comp_unit(); 3572 struct Lisp_Native_Comp_Unit *comp_u = allocate_native_comp_unit();
3571 comp_u->handle = dynlib_open (SSDATA (file)); 3573 comp_u->handle = dynlib_open (SSDATA (file));
3572 if (!comp_u->handle) 3574 if (!comp_u->handle)