escape literal strings in %emit-asm
Sat Nov 3 14:38:06 PDT 2007 Ties Stuij <ties@stuij.se>
* escape literal strings in %emit-asm
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-12 13:43:43.000000000 -0700
+++ new-armish/src/arm-lisp-interworking.lisp 2014-07-12 13:43:43.000000000 -0700
@@ -71,7 +71,8 @@
(append '(list) (%emit-asm item))))
(keyword item)
(symbol (escape-assembly-constants item))
- (number item)))))
+ (number item)
+ (string item)))))
(defmacro emit-asm (&rest instrs)
`(list