[asdf-devel] ASDF::COERCE-NAME string-downcases symbols, but lets strings untouched

[Tobias C. Rittweiler]

(defun coerce-name (name)
  (typecase name
    (component (component-name name))
    (symbol (string-downcase (symbol-name name)))
    (string name)
    (t (sysdef-error "~@<invalid component designator ~A~@:>" name))))

I first thought this was some bad kludge to support modern-mode. But
vc-annotate told me that was introduced by Nikodemus.

What is the reason that symbols are downcased but strings not?

It makes

  (FIND-SYSTEM :FOO)

be different from

  (FIND-SYMBOL (SYMBOL-NAME :FOO))

which is just weird.

  -T.