[bknr-cvs] hans changed trunk/thirdparty/hunchentoot/set-timeouts.lisp

[BKNR Commits]

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