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 <[email protected]> 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 > [email protected] > http://lists.common-lisp.net/cgi-bin/mailman/listinfo/parenscript-devel _______________________________________________ parenscript-devel mailing list [email protected] http://lists.common-lisp.net/cgi-bin/mailman/listinfo/parenscript-devel
