Missing arguments in function call

This commit is contained in:
Juan Jose Garcia Ripoll 2010-02-17 23:55:43 +01:00
parent 492bcc5fc4
commit cce95aa087

View file

@ -1208,9 +1208,9 @@ also known as unix-domain sockets."))
(auto-close-two-way-stream stream)
stream))
(input
(make-stream-from-fd fd #-wsock :input #+wsock :input-wsock))
(make-stream-from-fd fd #-wsock :input #+wsock :input-wsock buffering))
(output
(make-stream-from-fd fd #-wsock :output #+wsock :output-wsock))
(make-stream-from-fd fd #-wsock :output #+wsock :output-wsock buffering))
(t
(error "SOCKET-MAKE-STREAM: at least one of :INPUT or :OUTPUT has to be true."))))