Migrate DUMP-CONS

diff --git a/src/compiler.lisp b/src/compiler.lisp
index 4510427..b7437e9 100644 (file)
--- 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)))