Revision: 3435 Author: hans URL: http://bknr.net/trac/changeset/3435
Add SET-TIMEOUTS implementation for CMUCL
U trunk/thirdparty/hunchentoot/set-timeouts.lisp
Modified: trunk/thirdparty/hunchentoot/set-timeouts.lisp =================================================================== --- trunk/thirdparty/hunchentoot/set-timeouts.lisp 2008-07-14 12:59:06 UTC (rev 3434) +++ trunk/thirdparty/hunchentoot/set-timeouts.lisp 2008-07-14 14:18:51 UTC (rev 3435) @@ -63,6 +63,9 @@ #+:sbcl (setf (sb-impl::fd-stream-timeout (usocket:socket-stream usocket)) (coerce read-timeout 'single-float)) - #-(or :clisp :allegro :openmcl :sbcl :lispworks) + #+:cmu + (setf (lisp::fd-stream-timeout (usocket:socket-stream usocket)) + (coerce read-timeout 'integer)) + #-(or :clisp :allegro :openmcl :sbcl :lispworks :cmu) (not-implemented 'set-timeouts))