Index: /branches/arm/lib/nfcomp.lisp
===================================================================
--- /branches/arm/lib/nfcomp.lisp	(revision 13911)
+++ /branches/arm/lib/nfcomp.lisp	(revision 13912)
@@ -1072,5 +1072,5 @@
   (unless (memq lfun refs)
     (let* ((lfv (function-to-function-vector lfun))
-	   (start #+ppc-target 0 #+x86-target (%function-code-words lfun))
+	   (start #-x86-target 0 #+x86-target (%function-code-words lfun))
 	   (refs (cons lfun refs)))
       (declare (dynamic-extent refs))
@@ -1220,4 +1220,6 @@
         ((#.x8664::fulltag-imm-0
           #.x8664::fulltag-imm-1))
+        #+arm-target
+        (#.arm::tag-imm)
         (t
          (if
@@ -1234,4 +1236,6 @@
                                  (ash 1 x8664::fulltag-immheader-1)
                                  (ash 1 x8664::fulltag-immheader-2))))
+           #+arm-target
+           (= (the fixnum (logand type-code arm::fulltagmask)) arm::fulltag-immheader)
            (case type-code
              (#.target::subtag-dead-macptr (fasl-unknown exp))
@@ -1252,5 +1256,6 @@
              (#+ppc-target #.target::subtag-symbol
               #+x8632-target #.target::subtag-symbol
-              #+x8664-target #.target::tag-symbol (fasl-scan-symbol exp))
+              #+x8664-target #.target::tag-symbol
+              #+arm-target #.target::subtag-symbol (fasl-scan-symbol exp))
              ((#.target::subtag-instance #.target::subtag-struct)
               (fasl-scan-user-form exp))