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

(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.