Author: hhubner Date: Mon Feb 18 05:30:00 2008 New Revision: 2527

Modified: branches/trunk-reorg/thirdparty/hunchentoot-0.15.0/port-mcl.lisp Log: CCL 1.2 compatibility fix

Modified: branches/trunk-reorg/thirdparty/hunchentoot-0.15.0/port-mcl.lisp ============================================================================== --- branches/trunk-reorg/thirdparty/hunchentoot-0.15.0/port-mcl.lisp (original) +++ branches/trunk-reorg/thirdparty/hunchentoot-0.15.0/port-mcl.lisp Mon Feb 18 05:30:00 2008 @@ -41,6 +41,7 @@ "Like INCF, but other threads can't interfer." `(ccl::atomic-incf-decf ,place ,delta))

+#-openmcl-native-threads (defun invoke-with-timeout (seconds bodyfn timeoutfn) "Executes the function (with no arguments) BODY-FN and returns its results but stops execution after DURATION seconds and then @@ -54,6 +55,7 @@ (unwind-protect (funcall bodyfn) (ccl::dequeue-timer-request timer)))))

+#-openmcl-native-threads (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 @@ -63,6 +65,14 @@ #'(lambda () ,@body) #'(lambda () ,@timeout-forms)))

+#+openmcl-native-threads +(defmacro with-timeout ((seconds &body timeout-forms) &body body) + "Compatibility stub, CCL with native threads does not support +support asynchronous timeouts." + (declare (ignore seconds timeout-forms)) + `(progn + ,@body)) + (defun process-run-function (name function &rest args) "See OpenMCL documentation for CCL:PROCESS-RUN-FUNCTION." (apply #'ccl:process-run-function name function args))