diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/comp.c | 4 |
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) |