[parenscript-devel] problem with identifier letter case

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; };"