* alloc.c (mark_overlay): Assume that overlay boundaries are

always markers.  Add comment.
* lread.c (read_internal_start): Use convenient validate_subarray.
Adjust docstring.
(Fread_from_string): Adjust docstring.

1 files changed, 3 insertions, 2 deletions

diff --git a/src/alloc.c b/src/alloc.c
index f656dc94216..faad0b59c87 100644
--- a/src/alloc.c
+++ b/src/alloc.c
@@ -6015,8 +6015,9 @@ mark_overlay (struct Lisp_Overlay *ptr)
   for (; ptr && !ptr->gcmarkbit; ptr = ptr->next)
     {
       ptr->gcmarkbit = 1;
-      mark_object (ptr->start);
-      mark_object (ptr->end);
+      /* These two are always markers and can be marked fast.  */
+      XMARKER (ptr->start)->gcmarkbit = 1;
+      XMARKER (ptr->end)->gcmarkbit = 1;
       mark_object (ptr->plist);
     }
 }