[Portableaserve-cvslog] CVS: portableaserve/acl-compat/sbcl acl-socket.lisp, 1.10, 1.11

[Rudi S. <ru...@us...>]

Update of /cvsroot/portableaserve/portableaserve/acl-compat/sbcl
In directory sfp-cvsdas-2.v30.ch3.sourceforge.com:/tmp/cvs-serv24562/acl-compat/sbcl

Modified Files:
	acl-socket.lisp 
Log Message:
Apply "patch for recent(ish) sbcl" from Andras Simon


Index: acl-socket.lisp
===================================================================
RCS file: /cvsroot/portableaserve/portableaserve/acl-compat/sbcl/acl-socket.lisp,v
retrieving revision 1.10
retrieving revision 1.11
diff -u -w -r1.10 -r1.11
--- acl-socket.lisp	25 Feb 2007 12:21:52 -0000	1.10
+++ acl-socket.lisp	8 Feb 2010 11:14:13 -0000	1.11
@@ -45,8 +45,7 @@
                                          :input t :output t
                                          ;; :buffering :none
                                          :element-type
-                                         (element-type server-socket)
-                                         :auto-close t)))
+                                         (element-type server-socket))))
         (if (eq (stream-type server-socket) :bivalent)
             ;; HACK: remember socket, so we can do peer lookup
             (make-bivalent-stream stream :plist `(:socket ,socket))