From 63eea0994e2c62bb17723ce12d4aaa5eb58f4597 Mon Sep 17 00:00:00 2001 From: Johan Andersson Date: Tue, 15 Dec 2020 22:13:44 +0100 Subject: [PATCH] Do string-downcase system-name in who-depends-on Fixes #203 --- quicklisp/misc.lisp | 1 + 1 file changed, 1 insertion(+) diff --git a/quicklisp/misc.lisp b/quicklisp/misc.lisp index 2cfabce..aab4e79 100644 --- a/quicklisp/misc.lisp +++ b/quicklisp/misc.lisp @@ -14,6 +14,7 @@ (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)))