mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-24 05:21:20 -08:00
Code Issues Projects Releases Packages Wiki Activity

find-package: look first for local package nicknames

Browse source
This commit is contained in:
Daniel Kochmanski 2017-04-30 12:38:13 +02:00
parent 9c2aef5599
commit 57d588116a
1 changed files with 7 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

7
src/c/package.d
View file

@ -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);