projects
/
jscl.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
47b624b
)
Migrate SETQ
author
David Vázquez
<davazp@gmail.com>
Sun, 23 Jun 2013 14:25:18 +0000
(16:25 +0200)
committer
David Vázquez
<davazp@gmail.com>
Sun, 23 Jun 2013 14:25:18 +0000
(16:25 +0200)
src/compiler.lisp
patch
|
blob
|
history
diff --git
a/src/compiler.lisp
b/src/compiler.lisp
index
b7437e9
..
45be8b3
100644
(file)
--- 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))))
(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
((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
((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)))))
(setq pairs (cddr pairs)))))
- `(code "(" ,@(reverse result) ")")))
+ `(progn ,@(reverse result))))
;;; Compilation of literals an object dumping
;;; Compilation of literals an object dumping