[usocket-cvs] r255 - usocket/trunk/backend

[ehuelsmann at common-lisp.net]

Author: ehuelsmann
Date: Tue May 22 17:51:25 2007
New Revision: 255

Modified:
   usocket/trunk/backend/clisp.lisp
Log:
Small but important changes to clisp backend as a result of more heavy testing.

Modified: usocket/trunk/backend/clisp.lisp
==============================================================================
--- usocket/trunk/backend/clisp.lisp	(original)
+++ usocket/trunk/backend/clisp.lisp	Tue May 22 17:51:25 2007
@@ -129,8 +129,7 @@
   (multiple-value-bind
       (secs musecs)
       (split-timeout (or timeout 1))
-    (let* ((musecs (truncate (* 1000000 sec-frac) 1))
-           (request-list (mapcar #'(lambda (x)
+    (let* ((request-list (mapcar #'(lambda (x)
                                      (if (stream-server-usocket-p x)
                                          (socket x)
                                        (list (socket x) :input)))