[Sbcl-commits] CVS: sbcl/contrib/sb-bsd-sockets sockets.lisp, 1.30, 1.31

[Nikodemus S. <de...@us...>]

Update of /cvsroot/sbcl/sbcl/contrib/sb-bsd-sockets
In directory sfp-cvsdas-3.v30.ch3.sourceforge.com:/tmp/cvs-serv7921/contrib/sb-bsd-sockets

Modified Files:
	sockets.lisp 
Log Message:
1.0.43.77: missing FINALIZE :DONT-SAVE T arguments in contribs

 Affects SB-BSD-SOCKETS and SB-SIMPLE-STREAMS.

 Fix a typo in NEWS.


Index: sockets.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/contrib/sb-bsd-sockets/sockets.lisp,v
retrieving revision 1.30
retrieving revision 1.31
diff -u -d -r1.30 -r1.31
--- sockets.lisp	19 Sep 2010 20:08:47 -0000	1.30
+++ sockets.lisp	19 Oct 2010 17:15:48 -0000	1.31
@@ -59,7 +59,8 @@
       (setf (slot-value socket 'file-descriptor) fd
             (slot-value socket 'protocol) proto-num
             (slot-value socket 'type) type)
-      (sb-ext:finalize socket (lambda () (sockint::close fd)))))
+      (sb-ext:finalize socket (lambda () (sockint::close fd))
+                       :dont-save t)))
 
 
 
@@ -117,7 +118,8 @@
                               :type (socket-type socket)
                               :protocol (socket-protocol socket)
                               :descriptor fd)))
-                    (sb-ext:finalize s (lambda () (sockint::close fd))))
+                    (sb-ext:finalize s (lambda () (sockint::close fd))
+                                     :dont-save t))
                   (multiple-value-list (bits-of-sockaddr socket sockaddr))))))))
 
 (defgeneric socket-connect (socket &rest address)