From 423fc1ff068a69770a3fd5d2cfce5b2c274f9401 Mon Sep 17 00:00:00 2001 From: kilianmh Date: Sun, 7 Apr 2024 19:18:32 +0200 Subject: [PATCH] Fix: Remove who-depends-on duplicates --- quicklisp/misc.lisp | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/quicklisp/misc.lisp b/quicklisp/misc.lisp index aab4e79..e486ca0 100644 --- a/quicklisp/misc.lisp +++ b/quicklisp/misc.lisp @@ -15,6 +15,8 @@ (defun who-depends-on (system-name) "Return a list of names of systems that depend on SYSTEM-NAME." (setf system-name (string-downcase system-name)) - (loop for system in (provided-systems t) - when (member system-name (required-systems system) :test 'string=) - collect (name system))) + (remove-duplicates + (loop for system in (provided-systems t) + when (member system-name (required-systems system) :test 'string=) + collect (name system)) + :test #'string=))