[hunchentoot-devel] port to sbcl win32: timouts are not implemented

Hi!

I've just tried hunchentoot on sbcl win32. When you first time start hunchentoot, lisp enters debugger with message "undefined function sb-unix:create-timer" or something in that fashion. Looks like timeouts are not implemented in sbcl win32 so I've changed with-timeout macro in the port-sbcl.lisp to just execute its body without timeout. It helps.

(defmacro with-timeout ((seconds &body timeout-forms) &body body) "Executes the code BODY and returns the results of the last form but stops execution after SECONDS seconds and then instead executes the code in TIMEOUT-FORMS." #+:win32 `(progn ,@body) #-:win32 `(cl:handler-case (sb-ext:with-timeout ,seconds ,@body) (sb-ext:timeout () ,@timeout-forms)))

Best regards, -Anton