From ce3c6531619c8e8677c5f57fe647b1f7ccca6d82 Mon Sep 17 00:00:00 2001
From: jgarcia <jgarcia>
Date: Thu, 2 Aug 2007 13:33:07 +0000
Subject: [PATCH] Allow MAKE-PACKAGE to rename a package that had been
 implicitely defined while reading a binary

---
 src/c/package.d | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/c/package.d b/src/c/package.d
index a6d5d071b..8facda594 100644
--- a/src/c/package.d
+++ b/src/c/package.d
@@ -138,7 +138,6 @@ ecl_make_package(cl_object name, cl_object nicknames, cl_object use_list)
 	x = cl_alloc_object(t_package);
 	x->pack.internal = make_package_hashtable();
 	x->pack.external = make_package_hashtable();
-	x->pack.name = name;
 #ifdef ECL_THREADS
 #if defined(_MSC_VER) || defined(mingw32)
 	x->pack.lock = CreateMutex(NULL, FALSE, NULL);
@@ -153,6 +152,7 @@ ecl_make_package(cl_object name, cl_object nicknames, cl_object use_list)
 #endif /* _MSC_VER */
 #endif
  INTERN:
+	x->pack.name = name;
 	x->pack.nicknames = Cnil;
 	x->pack.shadowings = Cnil;
 	x->pack.uses = Cnil;