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; };"
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
When put the two in a file, they really both get lower case when compile INSIDE CL-USER repl, while both get upper case when compile inside parenscript repl.
On Wed, Mar 21, 2012 at 1:03 AM, Vladimir Sedach vsedach@gmail.com wrote:
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
parenscript-devel mailing list parenscript-devel@common-lisp.net http://lists.common-lisp.net/cgi-bin/mailman/listinfo/parenscript-devel
That makes sense, since LOAD uses the current *readtable*
On Tue, Mar 20, 2012 at 9:11 PM, Canhua dreameration@gmail.com wrote:
When put the two in a file, they really both get lower case when compile INSIDE CL-USER repl, while both get upper case when compile inside parenscript repl.
On Wed, Mar 21, 2012 at 1:03 AM, Vladimir Sedach vsedach@gmail.com wrote:
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
parenscript-devel mailing list parenscript-devel@common-lisp.net http://lists.common-lisp.net/cgi-bin/mailman/listinfo/parenscript-devel
parenscript-devel mailing list parenscript-devel@common-lisp.net http://lists.common-lisp.net/cgi-bin/mailman/listinfo/parenscript-devel
parenscript-devel@common-lisp.net
-
Canhua -
Vladimir Sedach