From 4187aa829c57efbca937e0f7672c775769d95ffc Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Mon, 17 Nov 2003 00:58:10 +0000 Subject: [PATCH] (Fmapconcat): Signal an error if SEQUENCE is a char table. (Fmapcar): Likewise. (Fmapc): Likewise. --- src/fns.c | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/src/fns.c b/src/fns.c index 87f752a8aae..fa99293fcce 100644 --- a/src/fns.c +++ b/src/fns.c @@ -2418,6 +2418,8 @@ SEQUENCE may be a list, a vector, a bool-vector, or a string. */) struct gcpro gcpro1; len = Flength (sequence); + if (CHAR_TABLE_P (sequence)) + wrong_type_argument (Qlistp, sequence); leni = XINT (len); nargs = leni + leni - 1; if (nargs < 0) return build_string (""); @@ -2449,6 +2451,8 @@ SEQUENCE may be a list, a vector, a bool-vector, or a string. */) register Lisp_Object *args; len = Flength (sequence); + if (CHAR_TABLE_P (sequence)) + wrong_type_argument (Qlistp, sequence); leni = XFASTINT (len); args = (Lisp_Object *) alloca (leni * sizeof (Lisp_Object)); @@ -2467,6 +2471,8 @@ SEQUENCE may be a list, a vector, a bool-vector, or a string. */) register int leni; leni = XFASTINT (Flength (sequence)); + if (CHAR_TABLE_P (sequence)) + wrong_type_argument (Qlistp, sequence); mapcar1 (leni, 0, function, sequence); return sequence; -- 2.39.2