Index: /branches/arm/compiler/ARM/arm-arch.lisp
===================================================================
--- /branches/arm/compiler/ARM/arm-arch.lisp	(revision 13908)
+++ /branches/arm/compiler/ARM/arm-arch.lisp	(revision 13909)
@@ -646,4 +646,5 @@
 (defconstant max-non-array-node-subtag (logior (ash 18 ntagbits) fulltag-nodeheader))
 
+(define-subtag stack-alloc-marker fulltag-imm 1)
 (define-subtag lisp-frame-marker fulltag-imm 2)
 (define-subtag character fulltag-imm 9)
@@ -659,4 +660,5 @@
 (defconstant undefined unbound-marker)
 (defconstant lisp-frame-marker subtag-lisp-frame-marker)
+(defconstant stack-alloc-marker subtag-stack-alloc-marker)
 
 (defconstant max-64-bit-constant-index (ash (+ #xfff arm::misc-dfloat-offset) -3))
@@ -690,4 +692,5 @@
 
 (defconstant double-float.value double-float.val-low)
+(defconstant double-float.value-cell double-float.val-low-cell)
 
 
@@ -722,4 +725,6 @@
   db-link                               ; value of dynamic-binding link on thread entry.
   xframe                                ; exception-frame link
+  last-lisp-frame
+  code-vector                           ; may not be useful
 
 )