From 57d588116aa37dee355fc4cc284b371b5d181e66 Mon Sep 17 00:00:00 2001
From: Daniel Kochmanski <daniel@turtleware.eu>
Date: Sun, 30 Apr 2017 12:38:13 +0200
Subject: [PATCH] find-package: look first for local package nicknames

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

diff --git a/src/c/package.d b/src/c/package.d
index d72203f57..5b7c33029 100644
--- a/src/c/package.d
+++ b/src/c/package.d
@@ -312,6 +312,13 @@ ecl_find_package_nolock(cl_object name)
   if (ECL_PACKAGEP(name))
     return name;
   name = cl_string(name);
+
+  p = ecl_symbol_value(@'*package*');
+  if (ECL_PACKAGEP(p)) {
+    p = ecl_assoc(name, p->pack.local_nicknames);
+    if (!Null(p)) return p;
+  }
+
   l = cl_core.packages;
   loop_for_on_unsafe(l) {
     p = ECL_CONS_CAR(l);