Are you using SLIME? It seems to switch out the readtable based on the package you are in, so: CL-USER> (readtable-case *readtable*) :UPCASE PS> (readtable-case *readtable*) :invert I hadn't noticed this before. If you put the two in a file like: (in-package #:cl-user) (princ (ps:ps (+ 1 A))) (in-package #:parenscript) (princ (ps:ps (+ 1 A))) They both come out as 1+a; Vladimir On Sun, Mar 18, 2012 at 8:49 AM, Canhua <dreameration@gmail.com> wrote:
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; };"
_______________________________________________ parenscript-devel mailing list parenscript-devel@common-lisp.net http://lists.common-lisp.net/cgi-bin/mailman/listinfo/parenscript-devel