From de9f5afdafdf4deb270cd0384df35988f9adebf0 Mon Sep 17 00:00:00 2001
From: jjgarcia <jjgarcia>
Date: Thu, 5 Dec 2002 09:45:38 +0000
Subject: [PATCH] In MAYBE-PUSH-ARGS, a C variable was used initialized.

---
 src/cmp/cmpcall.lsp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/cmp/cmpcall.lsp b/src/cmp/cmpcall.lsp
index c7f963250..659748bea 100644
--- a/src/cmp/cmpcall.lsp
+++ b/src/cmp/cmpcall.lsp
@@ -172,7 +172,7 @@
 	    (< (length args) SI::C-ARGUMENTS-LIMIT))
     (return-from maybe-push-args (values nil nil nil)))
   (let* ((narg `(LCL ,(next-lcl))))
-    (wt-nl "{cl_index " narg ";")
+    (wt-nl "{cl_index " narg "=0;")
     (let* ((*temp* *temp*)
 	   (temp `(TEMP ,(next-temp)))
 	   (*destination* temp))