[parenscript-devel] problem with identifier letter case

[Canhua]

hi, as shown below, function name with upper case letter is compiled
into lower case name outside parenscript package,
while in parenscript package, the name's case is preserved.

Why?

cl-user> (in-package  :cl-user)

#<package "COMMON-LISP-USER">

cl-user> (ps:ps (defun A ()))

"function a() {       ;; upper case compiled into lower case
    return null;
};"

cl-user> (in-package :ps)

#<PACKAGE "PARENSCRIPT">

PS> (ps:ps (defun A ()))

"function A() {        ;; upper case is preserved
    return null;
};"