> The Lisp streams are buffered; insert (force-output) as necessary.
No success yet. This also does not work:
(let ((a (unsigned-array '(1 2 3)))
(b (unsigned-array '(4 5 6)))
(c (unsigned-array '(7 8 9))))
(with-open-file (f "/home/rif/Tmp/tmp3.data" :direction :output)
(write a :stream f)
(force-output f)
(unix:unix-write (system:fd-stream-fd f) b 0 12)
(force-output f)
(write c :stream f)
(force-output f)))
(with-open-file (f "/home/rif/Tmp/tmp3.data")
(values (read f)
(read-unsigned-array 3 f)
(read f)))
Replacing all calls to force-output with calls to finish-output also
doesn't help.
Cheers,
rif
