Don't use XCAR in possibly-nil situations

* src/gnutls.c (Fgnutls_peer_status): certs theoretically may be
nil, so don't use XCAR.

diff --git a/src/gnutls.c b/src/gnutls.c
index 92956923db3d3c41a86249aed266ca364f0c6329..a8034d0abbfd688ab3b46215d89fdc4234a1b43e 100644 (file)
--- a/src/gnutls.c
+++ b/src/gnutls.c
@@ -1277,7 +1277,7 @@ The return value is a property list with top-level keys :warnings and
 
       /* Return the host certificate in its own element for
         compatibility reasons. */
-      result = nconc2 (result, list2 (intern (":certificate"), XCAR (certs)));
+      result = nconc2 (result, list2 (intern (":certificate"), Fcar (certs)));
     }
 
   state = XPROCESS (proc)->gnutls_state;