1.0.9.41: Fix test on unthreaded config.

[sbcl.git] / contrib / sb-bsd-sockets / sockets.lisp

diff --git a/contrib/sb-bsd-sockets/sockets.lisp b/contrib/sb-bsd-sockets/sockets.lisp
index 072dc07..e9fa645 100644 (file)
--- a/contrib/sb-bsd-sockets/sockets.lisp
+++ b/contrib/sb-bsd-sockets/sockets.lisp
@@ -356,7 +356,7 @@ SB-SYS:MAKE-FD-STREAM."))
     (unless stream
       (setf stream (apply #'sb-sys:make-fd-stream
                           (socket-file-descriptor socket)
-                          :name "a constant string"
+                          :name "a socket"
                           :dual-channel-p t
                           args))
       (setf (slot-value socket 'stream) stream)