Commit 32601b6ea98b732320ed20674b1a4f9be59dccb7

Thomas de Grivel 2018-05-30T16:22:31

unistd-stream

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
diff --git a/thot-simple.lisp b/thot-simple.lisp
index b9a058f..2d68504 100644
--- a/thot-simple.lisp
+++ b/thot-simple.lisp
@@ -23,11 +23,11 @@
                       (socket:with-accept (clientfd) fd
                         (with-stream (request-stream
                                       (babel-input-stream
-                                       (fd-input-stream clientfd)))
+                                       (unistd-input-stream clientfd)))
                           (with-stream (reply-stream
                                         (babel-output-stream
                                          (multi-buffered-output-stream
-                                          (fd-output-stream clientfd))))
+                                          (unistd-output-stream clientfd))))
                             (request-loop request-stream reply-stream)))))))))
       #'acceptor-loop-simple-fun)))