Do string-downcase system-name in who-depends-on

Fixes quicklisp#203

Author: nja

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)))