don't nconc forms in pass 2, they keep state around
Sun Oct 28 07:03:49 PDT 2007 Ties Stuij <ties@stuij.se>
* don't nconc forms in pass 2, they keep state around
diff -rN -u old-armish/src/assembler.lisp new-armish/src/assembler.lisp
--- old-armish/src/assembler.lisp 2014-07-28 01:18:41.000000000 -0700
+++ new-armish/src/assembler.lisp 2014-07-28 01:18:41.000000000 -0700
@@ -136,7 +136,7 @@
"Second pass assembler that actually returns opcodes."
(let ((*pass* 1)
(*here* 0))
- (loop for form in forms nconc
+ (loop for form in forms append
(cond
((symbolp form)
(resolve-symbol form))
@@ -167,6 +167,7 @@
forms
(clean-form (append forms '(align pool :code-end)))))
;; setup initial specials
+
(*labels* (make-hash-table))
(*pool* '())
(*pool-position* 0)