From 4344cee5d5b35f67baabad04a37f4e61c85b8a16 Mon Sep 17 00:00:00 2001 From: jjgarcia Date: Wed, 18 May 2005 12:16:03 +0000 Subject: [PATCH] READ/WRITE-SEQUENCE operates on vectors, not on arbitrary arrays --- src/c/file.d | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/c/file.d b/src/c/file.d index 40b199626..5c8a48463 100644 --- a/src/c/file.d +++ b/src/c/file.d @@ -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';