Index: /branches/arm/level-0/l0-array.lisp
===================================================================
--- /branches/arm/level-0/l0-array.lisp	(revision 13839)
+++ /branches/arm/level-0/l0-array.lisp	(revision 13840)
@@ -699,17 +699,17 @@
   (%extend-vector 0 src (uvsize src)))
 
-#+ppc32-target
+#+(or ppc32-target arm-target)
 (defun subtag-bytes (subtag element-count)
   (declare (fixnum subtag element-count))
-  (unless (= #.ppc32::fulltag-immheader (logand subtag #.ppc32::fulltagmask))
+  (unless (= #.target::fulltag-immheader (logand subtag #.target::fulltagmask))
     (error "Not an ivector subtag: ~s" subtag))
   (let* ((element-bit-shift
-          (if (<= subtag ppc32::max-32-bit-ivector-subtag)
+          (if (<= subtag target::max-32-bit-ivector-subtag)
             5
-            (if (<= subtag ppc32::max-8-bit-ivector-subtag)
+            (if (<= subtag target::max-8-bit-ivector-subtag)
               3
-              (if (<= subtag ppc32::max-16-bit-ivector-subtag)
+              (if (<= subtag target::max-16-bit-ivector-subtag)
                 4
-                (if (= subtag ppc32::subtag-double-float-vector)
+                (if (= subtag target::subtag-double-float-vector)
                   6
                   0)))))