mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2025-12-15 15:21:03 -08:00
Code Issues Projects Releases Packages Wiki Activity

Same reverse fix as before.

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2009-08-17 21:25:20 +02:00
parent 7077608d93
commit 61b7c0ac31
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
contrib/sockets/sockets.lisp
View file

@ -1187,7 +1187,7 @@ also known as unix-domain sockets."))
stream))
#+:wsock
(defmethod socket-make-stream ((socket named-pipe-socket) &rest args &key (buffering :full))
(defmethod socket-make-stream ((socket named-pipe-socket) &rest args &key (buffering nil))
(declare (ignore args))
(let ((stream (and (slot-boundp socket 'stream)
(slot-value socket 'stream))))