Migrate DUMP-ARRAY

diff --git a/src/compiler.lisp b/src/compiler.lisp
index 2bff550..55aae97 100644 (file)
--- a/src/compiler.lisp
+++ b/src/compiler.lisp
@@ -521,10 +521,11 @@
 
 (defun dump-array (array)
   (let ((elements (vector-to-list array)))
 
 (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)
 
 (defun dump-string (string)

-  `(code "make_lisp_string(" ,(js-escape-string string) ")"))
+  `(call |make_lisp_string| ,string))

 
 (defun literal (sexp &optional recursive)
   (cond
 
 (defun literal (sexp &optional recursive)
   (cond