From 197afa4de340679e18d7b91d50c82d2e14a2699b Mon Sep 17 00:00:00 2001
From: =?utf8?q?Mattias=20Engdeg=C3=A5rd?= <mattiase@acm.org>
Date: Sun, 25 Sep 2022 17:44:29 +0200
Subject: [PATCH] ; * src/fns.c (Fcopy_alist): More accurate error type

---
 src/fns.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/fns.c b/src/fns.c
index 964141f338d..3e5a83d03d2 100644
--- a/src/fns.c
+++ b/src/fns.c
@@ -1415,9 +1415,9 @@ are shared, however.
 Elements of ALIST that are not conses are also shared.  */)
   (Lisp_Object alist)
 {
+  CHECK_LIST (alist);
   if (NILP (alist))
     return alist;
-  CHECK_CONS (alist);
   alist = Fcopy_sequence (alist);
   for (Lisp_Object tem = alist; !NILP (tem); tem = XCDR (tem))
     {
-- 
2.39.2