[bknr-cvs] r2527 - branches/trunk-reorg/thirdparty/hunchentoot-0.15.0

[hhubner at common-lisp.net]

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 () , at body)
                         #'(lambda () , at 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
+    , at 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))