From 0fa30f3361e5876a7d0734e891f7386675775c8e Mon Sep 17 00:00:00 2001 From: Andreas Schwab Date: Mon, 16 Dec 2013 17:14:45 +0100 Subject: [PATCH] * gnutls.c (Fgnutls_boot): Properly check Flistp return value. --- src/ChangeLog | 4 ++++ src/gnutls.c | 2 +- 2 files changed, 5 insertions(+), 1 deletion(-) diff --git a/src/ChangeLog b/src/ChangeLog index 52ceb13eb14..e21ccc28996 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,7 @@ +2013-12-16 Andreas Schwab + + * gnutls.c (Fgnutls_boot): Properly check Flistp return value. + 2013-12-16 Teodor Zlatanov * gnutls.c (Fgnutls_boot): Use `Flistp' instead of diff --git a/src/gnutls.c b/src/gnutls.c index f04d9c44b41..a20665ab408 100644 --- a/src/gnutls.c +++ b/src/gnutls.c @@ -825,7 +825,7 @@ 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); - if (!Flistp (verify_error)) + if (NILP (Flistp (verify_error))) error ("gnutls-boot: invalid :verify_error parameter (not a list)"); if (!STRINGP (hostname)) -- 2.39.2