From d6cd84bcd1bb86d32d49e660d4041f655bf295f1 Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Mon, 4 Sep 2023 20:48:28 +0200 Subject: [PATCH] default-toplevel-value nor working for forwarded syms * src/eval.c (default_toplevel_binding): Handle SPECPDL_LET_LOCAL. --- src/eval.c | 1 + 1 file changed, 1 insertion(+) diff --git a/src/eval.c b/src/eval.c index 9268b65aa85..59055a75782 100644 --- a/src/eval.c +++ b/src/eval.c @@ -664,6 +664,7 @@ default_toplevel_binding (Lisp_Object symbol) { switch ((--pdl)->kind) { + case SPECPDL_LET_LOCAL: case SPECPDL_LET_DEFAULT: case SPECPDL_LET: if (EQ (specpdl_symbol (pdl), symbol)) -- 2.42.0