Changeset 3435

Show
Ignore:
Timestamp:
07/14/08 16:18:51 (6 months ago)
Author:
hans
Message:

Add SET-TIMEOUTS implementation for CMUCL

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • trunk/thirdparty/hunchentoot/set-timeouts.lisp

    r3229 r3435  
    6464  (setf (sb-impl::fd-stream-timeout (usocket:socket-stream usocket)) 
    6565        (coerce read-timeout 'single-float)) 
    66   #-(or :clisp :allegro :openmcl :sbcl :lispworks) 
     66  #+:cmu 
     67  (setf (lisp::fd-stream-timeout (usocket:socket-stream usocket)) 
     68        (coerce read-timeout 'integer)) 
     69  #-(or :clisp :allegro :openmcl :sbcl :lispworks :cmu) 
    6770  (not-implemented 'set-timeouts)) 
    6871