[armedbear-cvs] r14214 - trunk/abcl/src/org/armedbear/lisp

[mevenson at common-lisp.net]

Author: mevenson
Date: Wed Oct 24 10:34:18 2012
New Revision: 14214

Log:
EXT:READ-TIMEOUT Fix conversion of time to underlying api.

Modified:
   trunk/abcl/src/org/armedbear/lisp/socket.lisp

Modified: trunk/abcl/src/org/armedbear/lisp/socket.lisp
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/socket.lisp	Tue Oct 23 04:48:44 2012	(r14213)
+++ trunk/abcl/src/org/armedbear/lisp/socket.lisp	Wed Oct 24 10:34:18 2012	(r14214)
@@ -99,7 +99,7 @@
   "Time in SECONDS to set local implementation of 'SO_RCVTIMEO' on SOCKET."
   (java:jcall (java:jmethod "java.net.Socket" "setSoTimeout"  "int")
               socket
-              (/ seconds 1000)))
+              (* seconds 1000))) ;; underlying API in ms.
 
 (defun write-timeout (socket seconds)
   "No-op setting of write timeout to SECONDS on SOCKET."