trivial-timeout-devel March 2009

trivial-timeout-devel@common-lisp.net

1 participants
2 discussions

[trivial-timeout-devel] CCL fix
by Milan Jovanovic 21 Jul '09

21 Jul '09

On CCL when timeout is specified and form returns more then one value only one is returned CL-USER> (trivial-timeout:with-timeout (1) (values 1 2 3)) 1 CL-USER> This fix that Best,Milan #+(or digitool openmcl ccl) (defun generate-platform-specific-code (seconds-symbol doit-symbol) (let ((checker-process (format nil "Checker ~S" (gensym))) (waiting-process (format nil "Waiter ~S" (gensym))) (process (gensym))) `(let* ((,process (ccl:process-run-function ,checker-process (lambda () (progn (,doit-symbol)))))) (ccl:process-wait-with-timeout ,waiting-process (* ,seconds-symbol #+(or openmcl ccl) ccl:*ticks-per-second* #+digitool 60) (lambda () (not (ccl::process-active-p ,process)))) (when (ccl::process-active-p ,process) (ccl:process-kill ,process) (cerror "Timeout" 'timeout-error)) (ccl:join-process ,process))))

2 1

[trivial-timeout-devel] CCL/LW multiple values return fix
by Milan Jovanovic 14 Mar '09

14 Mar '09

On CCL and LW when timeout is specified and form returns more then one value only one is returned CL-USER> (trivial-timeout:with-timeout (1) (values 1 2 3)) 1 CL-USER> --- with-timeout-orig.lisp 2009-03-14 15:45:54.000000000 +0100 +++ with-timeout.lisp 2009-03-14 15:47:33.000000000 +0100 @@ -81,7 +81,7 @@ or is interrupted." (,process (ccl:process-run-function ,checker-process (lambda () - (setf ,result (progn (,doit-symbol))))))) + (setf ,result (multiple-value-list (,doit-symbol))))))) (ccl:process-wait-with-timeout ,waiting-process (* ,seconds-symbol #+(or openmcl ccl) @@ -91,7 +91,7 @@

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

trivial-timeout-devel March 2009