Migrate DUMP-ARRAY
authorDavid Vázquez <davazp@gmail.com>
Sun, 23 Jun 2013 13:32:38 +0000 (15:32 +0200)
committerDavid Vázquez <davazp@gmail.com>
Sun, 23 Jun 2013 13:32:38 +0000 (15:32 +0200)
src/compiler.lisp

index 2bff550..55aae97 100644 (file)
 
 (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