From 830f72473b85a08cbbc959a1c3fd57174029cf75 Mon Sep 17 00:00:00 2001
From: Fabrizio Fabbri <fabrizio.fabbri@gmail.com>
Date: Mon, 15 May 2017 18:45:22 +0200
Subject: [PATCH] Fix Uninitialized pointer read

Coverity report https://scan7.coverity.com/reports.htm#v29377/p15116/fileInstanceId=18706970&defectInstanceId=4323844&mergedDefectId=1435043
---
 src/c/unixsys.d | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/c/unixsys.d b/src/c/unixsys.d
index cbe8c41dc..70d123301 100644
--- a/src/c/unixsys.d
+++ b/src/c/unixsys.d
@@ -104,7 +104,7 @@ from_list_to_execve_argument(cl_object l, char ***environp)
   cl_object buffer;
   char **environ;
   for (p = l; !Null(p); p = ECL_CONS_CDR(p)) {
-    cl_object s;
+    cl_object s = ECL_CONS_CAR(p);
     total_size += s->base_string.fillp + 1;
     nstrings++;
   }