# HG changeset patch
# User Kim F. Storm <storm@cua.dk>
# Date 1152710499 0
# Node ID 9214bbc95872b8aa68df3198d8aa3d27fc64d207
# Parent  0b34cf45daa893dc6f5e8cb5eca06ce5bc7eba75
(sun_item_create): Use CHECK_LIST_CONS.

diff -r 0b34cf45daa8 -r 9214bbc95872 src/sunfns.c
--- a/src/sunfns.c	Wed Jul 12 13:20:32 2006 +0000
+++ b/src/sunfns.c	Wed Jul 12 13:21:39 2006 +0000
@@ -363,7 +363,7 @@
   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);