From: David Vázquez <davazp@gmail.com>
Date: Sun, 23 Jun 2013 13:32:38 +0000 (+0200)
Subject: Migrate DUMP-ARRAY
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=7d1b70cd3f36a05fb2b069aad6d0f395aa8edebc;p=jscl.git

Migrate DUMP-ARRAY
---

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