# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 784943642 0
# Node ID e9d341f235eee7ec15e165394f9d547c578d3062
# Parent  982820033564a74f0a2aa172a2003ab26942acd9
(unlock_all_files): Use the new type-test macros.

diff -r 982820033564 -r e9d341f235ee src/filelock.c
--- a/src/filelock.c	Tue Nov 15 23:52:43 1994 +0000
+++ b/src/filelock.c	Tue Nov 15 23:54:02 1994 +0000
@@ -378,8 +378,7 @@
   register Lisp_Object tail;
   register struct buffer *b;
 
-  for (tail = Vbuffer_alist; XGCTYPE (tail) == Lisp_Cons;
-       tail = XCONS (tail)->cdr)
+  for (tail = Vbuffer_alist; GC_CONSP (tail); tail = XCONS (tail)->cdr)
     {
       b = XBUFFER (XCONS (XCONS (tail)->car)->cdr);
       if (STRINGP (b->filename) && b->save_modified < BUF_MODIFF (b))