From 82a5ab1f6aeb1bd0665fb490e692d9aee03a4c0c Mon Sep 17 00:00:00 2001 From: Nikodemus Siivola Date: Mon, 28 May 2007 14:07:03 +0000 Subject: [PATCH] 1.0.6.1: marginally nicer "name" for socket streams * "a socket" instead of "a constant string". It might be worth while to actually make this based on the socket-name and -peername, though. --- NEWS | 4 ++++ contrib/sb-bsd-sockets/sockets.lisp | 2 +- version.lisp-expr | 2 +- 3 files changed, 6 insertions(+), 2 deletions(-) diff --git a/NEWS b/NEWS index af347b380..0f9422926 100644 --- a/NEWS +++ b/NEWS @@ -1,4 +1,8 @@ ;;;; -*- coding: utf-8; -*- +changes in sbcl-1.0.7 relative to sbcl-1.0.6: + * enhancement: name of a socket-stream is now "a socket" instead of + "a constant string". + changes in sbcl-1.0.6 relative to sbcl-1.0.5: * new contrib: sb-cover, an experimental code coverage tool, is included as a contrib module. diff --git a/contrib/sb-bsd-sockets/sockets.lisp b/contrib/sb-bsd-sockets/sockets.lisp index 072dc0799..e9fa645da 100644 --- 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) diff --git a/version.lisp-expr b/version.lisp-expr index e0147a81b..8b8f47031 100644 --- a/version.lisp-expr +++ b/version.lisp-expr @@ -17,4 +17,4 @@ ;;; checkins which aren't released. (And occasionally for internal ;;; versions, especially for internal versions off the main CVS ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".) -"1.0.6" +"1.0.6.1" -- 2.11.4.GIT