diff options
Diffstat (limited to 'src/lread.c')
| -rw-r--r-- | src/lread.c | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/src/lread.c b/src/lread.c index d225403b203..0486a98883c 100644 --- a/src/lread.c +++ b/src/lread.c @@ -1172,7 +1172,7 @@ compute_found_effective (Lisp_Object found) static void loadhist_initialize (Lisp_Object filename) { - eassert (STRINGP (filename)); + eassert (STRINGP (filename) || NILP (filename)); specbind (Qcurrent_load_list, Fcons (filename, Qnil)); } @@ -2179,6 +2179,9 @@ readevalloop (Lisp_Object readcharfun, bool first_sexp = 1; Lisp_Object macroexpand = intern ("internal-macroexpand-for-load"); + if (!NILP (sourcename)) + CHECK_STRING (sourcename); + if (NILP (Ffboundp (macroexpand)) || (STRINGP (sourcename) && suffix_p (sourcename, ".elc"))) /* Don't macroexpand before the corresponding function is defined |