Fix bug#16161: CHECK_LIST_CONS fails on nil

* src/gnutls.c (Fgnutls_boot): Use `Flistp' instead of
`CHECK_LIST_CONS`.

diff --git a/src/ChangeLog b/src/ChangeLog
index dbd2298985be74c4cb9842b01019c3fd58e29f28..52ceb13eb14918151fd93a1a531e7cb942f70ff4 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,8 @@
+2013-12-16  Teodor Zlatanov  <tzz@lifelogs.com>
+
+       * gnutls.c (Fgnutls_boot): Use `Flistp' instead of
+       `CHECK_LIST_CONS`.
+
 2013-12-16  Martin Rudalics  <rudalics@gmx.at>
 
        * w32term.c (w32_enable_frame_resize_hack): Default to 1.

diff --git a/src/gnutls.c b/src/gnutls.c
index dd9f30f4de917f2fb609b6a5963201bac1db97ae..f04d9c44b41cbf45e14e59a1ae993781aff3616b 100644 (file)
--- a/src/gnutls.c
+++ b/src/gnutls.c
@@ -825,7 +825,8 @@ one trustfile (usually a CA bundle).  */)
   verify_error          = Fplist_get (proplist, QCgnutls_bootprop_verify_error);
   prime_bits            = Fplist_get (proplist, QCgnutls_bootprop_min_prime_bits);
 
-  CHECK_LIST_CONS (verify_error, verify_error);
+  if (!Flistp (verify_error))
+    error ("gnutls-boot: invalid :verify_error parameter (not a list)");
 
   if (!STRINGP (hostname))
     error ("gnutls-boot: invalid :hostname parameter (not a string)");