From 7d1b70cd3f36a05fb2b069aad6d0f395aa8edebc Mon Sep 17 00:00:00 2001 From: =?utf8?q?David=20V=C3=A1zquez?= Date: Sun, 23 Jun 2013 15:32:38 +0200 Subject: [PATCH] Migrate DUMP-ARRAY --- src/compiler.lisp | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/src/compiler.lisp b/src/compiler.lisp index 2bff550..55aae97 100644 --- a/src/compiler.lisp +++ b/src/compiler.lisp @@ -521,10 +521,11 @@ (defun dump-array (array) (let ((elements (vector-to-list array))) - `(code "[" ,(join (mapcar #'literal elements) ", ") "]"))) + (list-to-vector (mapcar (lambda (x) `(code ,(literal x))) + elements)))) (defun dump-string (string) - `(code "make_lisp_string(" ,(js-escape-string string) ")")) + `(call |make_lisp_string| ,string)) (defun literal (sexp &optional recursive) (cond -- 1.7.10.4