# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 765401879 0
# Node ID 41be2ee67089d0b6b39e555665974046edf7a5ea
# Parent  b188651d24d6a30f8e5568cd187732dd9b5c512c
(overlays_at): Use XGCTYPE.

diff -r b188651d24d6 -r 41be2ee67089 src/buffer.c
--- a/src/buffer.c	Sun Apr 03 19:37:32 1994 +0000
+++ b/src/buffer.c	Sun Apr 03 19:37:59 1994 +0000
@@ -1304,13 +1304,13 @@
   int inhibit_storing = 0;
 
   for (tail = current_buffer->overlays_before;
-       CONSP (tail);
+       XGCTYPE (tail) == Lisp_Cons;
        tail = XCONS (tail)->cdr)
     {
       int startpos;
 
       overlay = XCONS (tail)->car;
-      if (! OVERLAY_VALID (overlay))
+      if (XGCTYPE (overlay) == Lisp_Overlay)
 	abort ();
 
       start = OVERLAY_START (overlay);
@@ -1344,13 +1344,13 @@
     }
 
   for (tail = current_buffer->overlays_after;
-       CONSP (tail);
+       XGCTYPE (tail) == Lisp_Cons;
        tail = XCONS (tail)->cdr)
     {
       int startpos;
 
       overlay = XCONS (tail)->car;
-      if (! OVERLAY_VALID (overlay))
+      if (XGCTYPE (overlay) == Lisp_Overlay)
 	abort ();
 
       start = OVERLAY_START (overlay);