Changeset 13218

Timestamp:

Nov 20, 2009, 4:11:31 AM (15 years ago)

Author:

Gary Byers

Message:

Just read bytes in $fasl-nvstr.

File:

• branches/purify/source/xdump/xfasload.lisp (modified) (1 diff)

branches/purify/source/xdump/xfasload.lisp

@@ -1249 +1249 @@
          (dotimes (i n)
            (setf (u8-ref v (+ o i *xload-target-misc-data-offset*))
-                 (%fasl-read-count s))))
+                 (%fasl-read-byte s))))
         (t
          (dotimes (i n)
            (setf (u32-ref v (+ o (* i 4) *xload-target-misc-data-offset*))
-                 (%fasl-read-count s)))))
+                 (%fasl-read-byte s)))))
       str)))