[Openmcl-cvs-notifications] r10429 - /trunk/source/level-1/l1-streams.lisp

[gb at clozure.com]

Author: gb
Date: Mon Aug 11 00:05:44 2008
New Revision: 10429

Log:
The SO_SNDLOWAT is (largely) unimplemented on Solaris.  Use
SO_SNDBUF instead, but that may not dtrt.


Modified:
    trunk/source/level-1/l1-streams.lisp

Modified: trunk/source/level-1/l1-streams.lisp
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D
--- trunk/source/level-1/l1-streams.lisp (original)
+++ trunk/source/level-1/l1-streams.lisp Mon Aug 11 00:05:44 2008
@@ -3317,7 +3317,9 @@
                    (:socket
                     #+linux-target nominal
                     #-linux-target
-                    (int-getsockopt fd #$SOL_SOCKET #$SO_SNDLOWAT))
+                    (int-getsockopt fd #$SOL_SOCKET
+                                    #+solaris-target #$SO_SNDBUF
+                                    #-solaris-target #$SO_SNDLOWAT))
                    ((:character-special :tty) (#_fpathconf fd #$_PC_MAX_IN=
PUT))
                    (t nominal))))
     (case (subtag-bytes (element-type-subtype element-type) 1)
@@ -3325,6 +3327,9 @@
       (2 (ash octets -1))
       (4 (ash octets -2))
       (8 (ash octets -3)))))
+
+
+
 =

 =

 (defun milliseconds-until-deadline (deadline ioblock)