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))))
