mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-04-06 11:01:01 -07:00
Code Issues Projects Releases Packages Wiki Activity

shadow: don't add duplicates to PACKAGE-SHADOWING-SYMBOLS

Browse source 
Fixes #827.
This commit is contained in:
Daniel Kochmański 2026-03-30 10:37:00 +02:00
parent 98511888b5
commit 75ff4c8f49
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
src/c/package.d
View file

@ -833,7 +833,8 @@ ecl_shadow(cl_object s, cl_object p)
p->pack.internal = _ecl_sethash(s, p->pack.internal, x);
x->symbol.hpack = p;
}
p->pack.shadowings = CONS(x, p->pack.shadowings);
if (!ecl_member_eq(x, p->pack.shadowings))
p->pack.shadowings = CONS(x, p->pack.shadowings);
} ECL_WITH_GLOBAL_ENV_WRLOCK_END;
}