(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.
_______________________________________________
asdf-devel mailing list
asdf-devel@common-lisp.net
http://common-lisp.net/cgi-bin/mailman/listinfo/asdf-devel
