[Emacs-diffs] trunk r115544: Fix bug#16161: CHECK_LIST_CONS fails on nil

[Teodor Zlatanov]

------------------------------------------------------------
revno: 115544
revision-id: address@hidden
parent: address@hidden
committer: Ted Zlatanov <address@hidden>
branch nick: quickfixes
timestamp: Mon 2013-12-16 10:47:09 -0500
message:
  Fix bug#16161: CHECK_LIST_CONS fails on nil
  
  * src/gnutls.c (Fgnutls_boot): Use `Flistp' instead of
  `CHECK_LIST_CONS`.
modified:
  src/ChangeLog                  changelog-20091113204419-o5vbwnq5f7feedwu-1438
  src/gnutls.c                   gnutls.c-20100926054902-dzayyj6wycit6kzn-3

=== modified file 'src/ChangeLog'
--- a/src/ChangeLog     2013-12-16 09:58:44 +0000
+++ b/src/ChangeLog     2013-12-16 15:47:09 +0000
@@ -1,3 +1,8 @@
+2013-12-16  Teodor Zlatanov  <address@hidden>
+
+       * gnutls.c (Fgnutls_boot): Use `Flistp' instead of
+       `CHECK_LIST_CONS`.
+
 2013-12-16  Martin Rudalics  <address@hidden>
 
        * w32term.c (w32_enable_frame_resize_hack): Default to 1.

=== modified file 'src/gnutls.c'
--- a/src/gnutls.c      2013-12-15 04:20:53 +0000
+++ b/src/gnutls.c      2013-12-16 15:47:09 +0000
@@ -825,7 +825,8 @@
   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)");