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

Migrate DUMP-CONS
---

diff --git a/src/compiler.lisp b/src/compiler.lisp
index 4510427..b7437e9 100644
--- a/src/compiler.lisp
+++ b/src/compiler.lisp
@@ -512,12 +512,10 @@
 (defun dump-cons (cons)
   (let ((head (butlast cons))
         (tail (last cons)))
-    `(code "QIList("
-           ,@(interleave (mapcar (lambda (x) (literal x t)) head) "," t)
-           ,(literal (car tail) t)
-           ","
-           ,(literal (cdr tail) t)
-           ")")))
+    `(call |QIList|
+           ,@(mapcar (lambda (x) `(code ,(literal x t))) head)
+           (code ,(literal (car tail) t))
+           (code ,(literal (cdr tail) t)))))
 
 (defun dump-array (array)
   (let ((elements (vector-to-list array)))