X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=contrib%2Fsb-simple-streams%2Fsocket.lisp;h=65357ac4a7aece7e65885f4080effdd4a8f5b417;hb=7572e0506af331534e6f97b027d56e8bea09410c;hp=120f37512b396590b74fcd763c0a54f0ee2754a7;hpb=4898ef32c639b1c7f4ee13a5ba566ce6debd03e6;p=sbcl.git

diff --git a/contrib/sb-simple-streams/socket.lisp b/contrib/sb-simple-streams/socket.lisp
index 120f375..65357ac 100644
--- 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)