From: Mattias Engdegård <mattiase@acm.org>
Date: Sun, 25 Sep 2022 15:44:29 +0000 (+0200)
Subject: ; * src/fns.c (Fcopy_alist): More accurate error type
X-Git-Tag: emacs-29.0.90~1856^2~225
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=197afa4de340679e18d7b91d50c82d2e14a2699b;p=emacs.git

; * src/fns.c (Fcopy_alist): More accurate error type
---

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))
     {