From 539b05a1a2d3decb52c2492eca334786bb9588a9 Mon Sep 17 00:00:00 2001
From: Fabrizio Fabbri <fabrizio.fabbri@gmail.com>
Date: Tue, 16 May 2017 22:43:08 +0200
Subject: [PATCH] coverity fix Uninitialized pointer read

---
 src/cmp/cmpmain.lsp | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/cmp/cmpmain.lsp b/src/cmp/cmpmain.lsp
index a0d2b2155..5ecd9b24b 100755
--- a/src/cmp/cmpmain.lsp
+++ b/src/cmp/cmpmain.lsp
@@ -262,7 +262,7 @@ void ~A(cl_object cblock)
          * circular chain. This disables the garbage collection of
          * the library until _ALL_ functions in all modules are unlinked.
          */
-        cl_object current, next = Cblock;
+        cl_object current = Cnil, next = Cblock;
 ~:{
         current = ecl_make_codeblock();
         current->cblock.next = next;
@@ -313,6 +313,7 @@ extern int
         ecl_init_module(OBJNULL, ~A);
         ~A
         } ECL_CATCH_ALL_END;
+        return 0;
 }
 ")