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)))