projects
/
jscl.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
2990cdd
)
Fix symbol name dumping
author
David Vázquez
<davazp@gmail.com>
Fri, 3 May 2013 08:35:47 +0000
(09:35 +0100)
committer
David Vázquez
<davazp@gmail.com>
Fri, 3 May 2013 08:35:47 +0000
(09:35 +0100)
src/compiler.lisp
patch
|
blob
|
history
diff --git
a/src/compiler.lisp
b/src/compiler.lisp
index
75ef516
..
8a9fc36
100644
(file)
--- a/
src/compiler.lisp
+++ b/
src/compiler.lisp
@@
-564,13
+564,13
@@
#+common-lisp
(let ((package (symbol-package symbol)))
(if (eq package (find-package "KEYWORD"))
#+common-lisp
(let ((package (symbol-package symbol)))
(if (eq package (find-package "KEYWORD"))
- (code "{name: \"" (escape-string (symbol-name symbol))
- "\", 'package': '" (package-name package) "'}")
- (code "{name: \"" (escape-string (symbol-name symbol)) "\"}")))
+ (code "{name: " (dump-string (symbol-name symbol))
+ ", 'package': " (dump-string (package-name package)) "}")
+ (code "{name: " (dump-string (symbol-name symbol)) "}")))
#+jscl
(let ((package (symbol-package symbol)))
(if (null package)
#+jscl
(let ((package (symbol-package symbol)))
(if (null package)
- (code "{name: \"" (escape-string (symbol-name symbol)) "\"}")
+ (code "{name: " (dump-symbol (symbol-name symbol)) "}")
(ls-compile `(intern ,(symbol-name symbol) ,(package-name package))))))
(defun dump-cons (cons)
(ls-compile `(intern ,(symbol-name symbol) ,(package-name package))))))
(defun dump-cons (cons)
@@
-1486,7
+1486,7
@@
(js!bool
(js!selfcall
"var x = " x ";" *newline*
(js!bool
(js!selfcall
"var x = " x ";" *newline*
- "return typeof(x) == 'object' && 'length' in x && x.type == 'character';")))
+ "return typeof(x) == 'object' && 'length' in x && x.type == 'character';")))
(define-builtin string-upcase (x)
(code "make_lisp_string(" x ".join('').toUppercase())"))
(define-builtin string-upcase (x)
(code "make_lisp_string(" x ".join('').toUppercase())"))