changeset 71842:9214bbc95872

(sun_item_create): Use CHECK_LIST_CONS.
author Kim F. Storm <storm@cua.dk>
date Wed, 12 Jul 2006 13:21:39 +0000
parents 0b34cf45daa8
children 2d05f598fa85
files src/sunfns.c
diffstat 1 files changed, 1 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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);