Skip to content

Commit 31b3611

Browse files
authored
Merge pull request quicklisp#205 from nja/master
Do string-downcase system-name in who-depends-on
2 parents b525ae5 + 63eea09 commit 31b3611

File tree

1 file changed

+1
-0
lines changed

1 file changed

+1
-0
lines changed

quicklisp/misc.lisp

Lines changed: 1 addition & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -14,6 +14,7 @@
1414

1515
(defun who-depends-on (system-name)
1616
"Return a list of names of systems that depend on SYSTEM-NAME."
17+
(setf system-name (string-downcase system-name))
1718
(loop for system in (provided-systems t)
1819
when (member system-name (required-systems system) :test 'string=)
1920
collect (name system)))

0 commit comments

Comments
 (0)