From 235338581d10904b908a39e7ec2987c1375a78b7 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Mattias=20Engdeg=C3=A5rd?= Date: Wed, 9 Jul 2025 09:58:57 +0200 Subject: [PATCH] ; * src/lread.c (read_internal_start): Simplify. This removes code that became dead in the non-recursive reader reform. (cherry picked from commit f605e6ede36de1bb91cbefaca24cbd987961dd84) --- src/lread.c | 14 +++----------- 1 file changed, 3 insertions(+), 11 deletions(-) diff --git a/src/lread.c b/src/lread.c index 7f226074f09..9c8adf889c0 100644 --- a/src/lread.c +++ b/src/lread.c @@ -2787,22 +2787,14 @@ read_internal_start (Lisp_Object stream, Lisp_Object start, Lisp_Object end, read_objects_completed = make_hash_table (&hashtest_eq, DEFAULT_HASH_SIZE, Weak_None); - if (STRINGP (stream) - || ((CONSP (stream) && STRINGP (XCAR (stream))))) + if (STRINGP (stream)) { ptrdiff_t startval, endval; - Lisp_Object string; - - if (STRINGP (stream)) - string = stream; - else - string = XCAR (stream); - - validate_subarray (string, start, end, SCHARS (string), + validate_subarray (stream, start, end, SCHARS (stream), &startval, &endval); read_from_string_index = startval; - read_from_string_index_byte = string_char_to_byte (string, startval); + read_from_string_index_byte = string_char_to_byte (stream, startval); read_from_string_limit = endval; } -- 2.39.5