Changeset 2527
- Timestamp:
- 02/18/08 11:30:00 (9 months ago)
- Files:
Legend:
- Unmodified
- Added
- Removed
- Modified
- Copied
- Moved
branches/trunk-reorg/thirdparty/hunchentoot-0.15.0/port-mcl.lisp
r2449 r2527 42 42 `(ccl::atomic-incf-decf ,place ,delta)) 43 43 44 #-openmcl-native-threads 44 45 (defun invoke-with-timeout (seconds bodyfn timeoutfn) 45 46 "Executes the function \(with no arguments) BODY-FN and returns … … 55 56 (ccl::dequeue-timer-request timer))))) 56 57 58 #-openmcl-native-threads 57 59 (defmacro with-timeout ((seconds &body timeout-forms) &body body) 58 60 "Executes the code BODY and returns the results of the last … … 63 65 #'(lambda () ,@body) 64 66 #'(lambda () ,@timeout-forms))) 67 68 #+openmcl-native-threads 69 (defmacro with-timeout ((seconds &body timeout-forms) &body body) 70 "Compatibility stub, CCL with native threads does not support 71 support asynchronous timeouts." 72 (declare (ignore seconds timeout-forms)) 73 `(progn 74 ,@body)) 65 75 66 76 (defun process-run-function (name function &rest args)
