From da4ada5f21ad89eaab129a60f579a746200bd308 Mon Sep 17 00:00:00 2001 From: =?utf8?q?David=20V=C3=A1zquez?= Date: Sun, 23 Jun 2013 16:25:18 +0200 Subject: [PATCH] Migrate SETQ --- src/compiler.lisp | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/src/compiler.lisp b/src/compiler.lisp index b7437e9..45be8b3 100644 --- a/src/compiler.lisp +++ b/src/compiler.lisp @@ -445,7 +445,9 @@ (eq (binding-type b) 'variable) (not (member 'special (binding-declarations b))) (not (member 'constant (binding-declarations b)))) - `(code ,(binding-value b) " = " ,(ls-compile val))) + ;; TODO: Unnecesary make-symbol when codegen migration is + ;; finished. + `(= ,(make-symbol (binding-value b)) ,(ls-compile val))) ((and b (eq (binding-type b) 'macro)) (ls-compile `(setf ,var ,val))) (t @@ -463,11 +465,9 @@ ((null (cdr pairs)) (error "Odd pairs in SETQ")) (t - (push `(code ,(setq-pair (car pairs) (cadr pairs)) - ,(if (null (cddr pairs)) "" ", ")) - result) + (push `,(setq-pair (car pairs) (cadr pairs)) result) (setq pairs (cddr pairs))))) - `(code "(" ,@(reverse result) ")"))) + `(progn ,@(reverse result)))) ;;; Compilation of literals an object dumping -- 1.7.10.4