From 962eb7ff4debf1822cde7c1caee0d0395c8b63f1 Mon Sep 17 00:00:00 2001
From: jgarcia <jgarcia>
Date: Fri, 27 Oct 2006 20:27:41 +0000
Subject: [PATCH] Small fix regarding the references to undefined packages in
 compiled code: it is allow to reference the package by a nickname if it is to
 be created with that nickname later on.

---
 src/c/package.d | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/src/c/package.d b/src/c/package.d
index ff1026c5b..4ead01aa5 100644
--- a/src/c/package.d
+++ b/src/c/package.d
@@ -113,12 +113,15 @@ make_package(cl_object name, cl_object nicknames, cl_object use_list)
 	if (cl_core.packages_to_be_created != OBJNULL) {
 		cl_object *p = &cl_core.packages_to_be_created;
 		for (x = *p; x != Cnil; ) {
-			if (equal(CAAR(x), name)) {
+			cl_object other_name = CAAR(x);
+			if (equal(other_name, name) ||
+			    funcall(5, @'member', other_name, nicknames,
+				    @':test', @'string=') != Cnil)
+			{
 				*p = CDR(x);
 				x = CDAR(x);
 				goto INTERN;
 			}
-			/* FIXME! We should also check the nicknames */
 			p = &CDR(x);
 			x = *p;
 		}