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