From b475f84a4d2984899d62c35bde41fa10d9a5ef0f Mon Sep 17 00:00:00 2001 From: =?utf8?q?David=20V=C3=A1zquez?= Date: Fri, 3 May 2013 09:35:47 +0100 Subject: [PATCH] Fix symbol name dumping --- src/compiler.lisp | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/src/compiler.lisp b/src/compiler.lisp index 75ef516..8a9fc36 100644 --- 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")) - (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) - (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) @@ -1486,7 +1486,7 @@ (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())")) -- 1.7.10.4