Function: INTERN-XML-NAME

Source

(defun intern-xml-name (name ns env)
  (intern (ecase (readtable-case *readtable*)
            (:upcase (string-upcase name))
            (:downcase (string-downcase name))
            (:preserve name)
            (:invert (if (every #'upper-case-p name)
                         (string-downcase name)
                         (if (every #'lower-case-p name)
                             (string-upcase name)
                             name))))
          (lookup-package ns env)))