On 9. Aug 2004, at 16:19, rif wrote: > (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) > (unix:unix-write (system:fd-stream-fd f) b 0 12) > (write c :stream f))) >
The Lisp streams are buffered; insert (force-output) as necessary. > (with-open-file (f "/home/rif/Tmp/tmp3.data") > (values (read f) > (read-unsigned-array 3 f) > (read f))) Don't know how to handle this one off-hand; perhaps there's a way to get at the underlying stream buffer. Rudi -- Attached file included as plaintext by Listar -- -- File: PGP.sig -- Desc: This is a digitally signed message part -----BEGIN PGP SIGNATURE----- Version: GnuPG v1.2.3 (Darwin) iD8DBQFBF4yW765FppppCGcRAhWDAJ9E8AWELwymu4Cd/2giKTCgwKB5ZgCdGrOG f52XZctQM6LcjzFFuWKUMCI= =qfvQ -----END PGP SIGNATURE-----
