[Sbcl-devel] (patch) Make socket stream names user-overridable

[Tony M. <to...@te...>]

Patchlet which allows the user to specify a name for socket-created
stream.

                                        --Tony

Index: sockets.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/contrib/sb-bsd-sockets/sockets.lisp,v
retrieving revision 1.12
diff -u -r1.12 sockets.lisp
--- sockets.lisp	1 Aug 2004 23:33:06 -0000	1.12
+++ sockets.lisp	1 Nov 2004 11:39:54 -0000
@@ -267,7 +267,7 @@
     (unless stream
       (setf stream (apply #'sb-sys:make-fd-stream
 			  (socket-file-descriptor socket)
-			  :name "a constant string"
+                          :name (or (getf args :name) "a constant string")
 			  args))
       (setf (slot-value socket 'stream) stream)
       (sb-ext:cancel-finalization socket))