[Sbcl-commits] CVS: sbcl/contrib/sb-bsd-sockets sockets.lisp,1.12,1.13

[Rudi S. <ru...@us...>]

Update of /cvsroot/sbcl/sbcl/contrib/sb-bsd-sockets
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv25074/contrib/sb-bsd-sockets

Modified Files:
	sockets.lisp 
Log Message:
0.9.0.34
Eliminate unnecessary seeks on socket streams
  ... Introduce dual-channel-p flag in fd-streams to discriminate
      between files and socket/pipe-streams


Index: sockets.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/contrib/sb-bsd-sockets/sockets.lisp,v
retrieving revision 1.12
retrieving revision 1.13
diff -u -d -r1.12 -r1.13
--- sockets.lisp	1 Aug 2004 23:33:06 -0000	1.12
+++ sockets.lisp	15 May 2005 20:09:57 -0000	1.13
@@ -268,6 +268,7 @@
       (setf stream (apply #'sb-sys:make-fd-stream
 			  (socket-file-descriptor socket)
 			  :name "a constant string"
+			  :dual-channel-p t
 			  args))
       (setf (slot-value socket 'stream) stream)
       (sb-ext:cancel-finalization socket))