rename SB-SIMPLE-STREAMS utility function

[sbcl.git] / contrib / sb-simple-streams / socket.lisp

diff --git a/contrib/sb-simple-streams/socket.lisp b/contrib/sb-simple-streams/socket.lisp
index 120f375..65357ac 100644 (file)
--- a/contrib/sb-simple-streams/socket.lisp
+++ b/contrib/sb-simple-streams/socket.lisp
@@ -76,7 +76,8 @@
                            (lambda ()
                              (sb-unix:unix-close fd)
                              (format *debug-io*
-                                     "~&;;; ** closed socket (fd ~D)~%" fd)))
+                                     "~&;;; ** closed socket (fd ~D)~%" fd))
+                           :dont-save t)
           ;; this should be done with (setf stream-external-format)
           (let ((efmt (getf options :external-format :default)))
             (compose-encapsulating-streams stream efmt)