From: David Vázquez 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