+(deftest read.1
+ (progn
+ (with-open-file (ouf (merge-pathnames "read-test.txt" *test-directory*)
+ :direction :output
+ :if-exists :supersede
+ :if-does-not-exist :create)
+ (write-string "foo" ouf))
+ (let ((fd (sb-posix:open (merge-pathnames "read-test.txt" *test-directory*) sb-posix:o-rdonly)))
+ (unwind-protect
+ (let ((buf (make-array 10 :element-type '(unsigned-byte 8))))
+ (values
+ (sb-posix:read fd (sb-sys:vector-sap buf) 10)
+ (code-char (aref buf 0))
+ (code-char (aref buf 1))
+ (code-char (aref buf 2))))
+ (sb-posix:close fd))))
+ 3 #\f #\o #\o)
+