From: Kim F. Storm <storm@cua.dk>
Date: Wed, 12 Jul 2006 13:21:39 +0000 (+0000)
Subject: (sun_item_create): Use CHECK_LIST_CONS.
X-Git-Tag: emacs-pretest-22.0.90~1496
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ca29b4169d9a0087ae5b90f80f4806c5e90c4bd5;p=emacs.git

(sun_item_create): Use CHECK_LIST_CONS.
---

diff --git a/src/sunfns.c b/src/sunfns.c
index 1c04f1108a8..336f02221cf 100644
--- a/src/sunfns.c
+++ b/src/sunfns.c
@@ -363,7 +363,7 @@ sun_item_create (Pair)
   Lisp_Object String;
   Lisp_Object Value;
 
-  if (!CONSP(Pair)) wrong_type_argument(Qlistp, Pair);
+  CHECK_LIST_CONS (Pair, Pair);
   String = Fcar(Pair);
   CHECK_STRING(String);
   Value = Fcdr(Pair);