cl-stream/unistd-stream

diff --git a/test.lisp b/test.lisp
new file mode 100644
index 0000000..02c3ef2
--- /dev/null
+++ b/test.lisp
@@ -0,0 +1,14 @@
+
+(in-package :common-lisp-user)
+
+(defpackage :fd-stream.test
+  (:use :common-lisp
+	:cl-stream
+	:fd-stream)
+  #.(cl-stream:shadowing-import-from))
+
+(in-package :fd-stream.test)
+
+(with-stream (s (open-file "/tmp/test"))
+  (dotimes (i 100)
+    (write s i)))