Changeset 8173

Timestamp:

Jan 17, 2008, 7:06:26 AM (17 years ago)

Author:

Gary Byers

Message:

Change order in TYPECASE in FASL-DUMP-DISPATCH (change from trunk,
to deal with FIXNUM arrays.)

File:

• branches/1.2/devel/source/lib/nfcomp.lisp (modified) (2 diffs)

branches/1.2/devel/source/lib/nfcomp.lisp

@@ -1261 +1261 @@
     ((simple-array (signed-byte 64) (*))
      (fasl-dump-64-bit-ivector exp $fasl-s64-vector))
-    (vector (fasl-dump-gvector exp $fasl-vector-header))
-    (array (fasl-dump-gvector exp $fasl-array-header))
     (ivector
      (unless (eq (backend-target-arch-name *target-backend*)
@@ -1275 +1273 @@
        (fasl-out-count n)
        (fasl-out-ivect exp 0 nb)))
+    (vector (fasl-dump-gvector exp $fasl-vector-header))
+    (array (fasl-dump-gvector exp $fasl-array-header))
+
     (gvector
      (if (= (typecode exp) target::subtag-istruct)