escape strings in emit-arm and escape ea forms on ground level in emit-arm
Sun Oct 28 07:02:35 PDT 2007 Ties Stuij <ties@stuij.se>
* escape strings in emit-arm and escape ea forms on ground level in emit-arm
diff -rN -u old-armish/src/arm-lisp-interworking.lisp new-armish/src/arm-lisp-interworking.lisp
--- old-armish/src/arm-lisp-interworking.lisp 2014-07-22 08:32:46.000000000 -0700
+++ new-armish/src/arm-lisp-interworking.lisp 2014-07-22 08:32:46.000000000 -0700
@@ -77,7 +77,10 @@
`(list
,@(loop for expr in instrs
collect (etypecase expr
- (cons (append (list 'list `',(car expr))
- (if (cdr expr) (%emit-asm (cdr expr)))))
+ (cons (if (eql (intern (format nil "~A" (car expr)) 'armish) 'ea)
+ (cadr expr)
+ (append (list 'list `',(car expr))
+ (if (cdr expr) (%emit-asm (cdr expr))))))
(keyword expr)
- (symbol `',expr)))))
\ No newline at end of file
+ (symbol `',expr)
+ (string expr)))))