From 75ff4c8f4957be6182eb79d969ad224263164e72 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Daniel=20Kochma=C5=84ski?= <daniel@turtleware.eu>
Date: Mon, 30 Mar 2026 10:37:00 +0200
Subject: [PATCH] shadow: don't add duplicates to PACKAGE-SHADOWING-SYMBOLS

Fixes #827.
---
 src/c/package.d | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/c/package.d b/src/c/package.d
index e6d6e3238..b7b6bd205 100644
--- a/src/c/package.d
+++ b/src/c/package.d
@@ -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;
 }