From 37c4e79d1ad78e48bbdb4cbc452d6954834a5839 Mon Sep 17 00:00:00 2001
From: Juan Jose Garcia Ripoll <jjgarcia@users.sourceforge.net>
Date: Fri, 21 Jan 2011 16:58:34 +0100
Subject: [PATCH] Fixed path with uninitialized variable in ecl_make_pathname
 (J. James)

---
 src/c/pathname.d | 1 +
 1 file changed, 1 insertion(+)

diff --git a/src/c/pathname.d b/src/c/pathname.d
index 23478bd6d..fc3cbebdd 100644
--- a/src/c/pathname.d
+++ b/src/c/pathname.d
@@ -324,6 +324,7 @@ ecl_make_pathname(cl_object host, cl_object device, cl_object directory,
 			directory = cl_list(2, @':absolute', @':wild-inferiors');
 			break;
 		}
+		x = directory;
 		component = @':directory';
 		goto ERROR;
 	case t_list: