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

diff --git a/src/fns.c b/src/fns.c
index 964141f338d4d250ef267f521683aaa159bb1c1a..3e5a83d03d2a9ef22dce947822301be7487a37a0 100644 (file)
--- 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))
     {