mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-20 11:32:35 -08:00
Code Issues Projects Releases Packages Wiki Activity

READ/WRITE-SEQUENCE operates on vectors, not on arbitrary arrays

Browse source
This commit is contained in:
jjgarcia 2005-05-18 12:16:03 +00:00
parent 127d575ade
commit 4344cee5d5
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/c/file.d
View file

@ -1483,7 +1483,7 @@ si_do_write_sequence(cl_object seq, cl_object stream, cl_object s, cl_object e)
goto OUTPUT;
}
if (t != t_string &&
!(t == t_array &&
!(t == t_vector &&
(seq->vector.elttype == aet_b8 || seq->vector.elttype == aet_i8)))
{
bool ischar = cl_stream_element_type(stream) == @'base-char';
@ -1561,7 +1561,7 @@ si_do_read_sequence(cl_object seq, cl_object stream, cl_object s, cl_object e)
goto OUTPUT;
}
if (t != t_string &&
!(t == t_array &&
!(t == t_vector &&
(seq->vector.elttype == aet_b8 || seq->vector.elttype == aet_i8)))
{
bool ischar = cl_stream_element_type(stream) == @'base-char';