From 47b624bbc8de2be9cb26615afb765f482db16965 Mon Sep 17 00:00:00 2001 From: =?utf8?q?David=20V=C3=A1zquez?= Date: Sun, 23 Jun 2013 16:09:09 +0200 Subject: [PATCH] Migrate DUMP-CONS --- src/compiler.lisp | 10 ++++------ 1 file changed, 4 insertions(+), 6 deletions(-) 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))) -- 1.7.10.4