trivial-timeout-devel

Download

trivial-timeout-devel@lists.common-lisp.net

March 2009

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