Changeset 13217 for branches/purify


Ignore:
Timestamp:
Nov 20, 2009, 8:55:59 AM (10 years ago)
Author:
gb
Message:

%FASL-READ-N-STRING: just read octets (e.g., for ASCII).

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/purify/source/level-0/nfasload.lisp

    r13210 r13217  
    208208       ((<= n 0))
    209209    (declare (fixnum i n))
    210     (setf (schar string i) (code-char (%fasl-read-count s)))))
     210    (setf (%scharcode string i) (%fasl-read-byte s))))
    211211
    212212(defun %fasl-nvreadstr (s)
Note: See TracChangeset for help on using the changeset viewer.