Re: [clisp-list] Re: Multithreading CLISP

[Sam S. <sd...@gn...>]

> * Denis Bueno <qo...@fg...g> [2004-06-16 08:37:43 -0400]:
>
> On 15 Jun 2004, at 13.15, Sam Steingold wrote:
>>
>> 2. try configuring "./configure --with-threads=POSIX_THREADS"
>>    and fix the segfaults you will get on CALL-WITH-TIMEOUT.
>
> I configured "./configure --with-threads=POSIX_THREADS --with-debug
> --build build-g", and did the following,
>
> [1]> (in-package :mt)
> #<PACKAGE THREADS>
> MP[2]> (call-with-timeout 100 #'(lambda (&rest args) (print
> timeout-function)) #'(lambda (&rest args) (print 'body-function)))
>
> BODY-FUNCTION
> BODY-FUNCTION

(call-with-timeout 10 #'(lambda (&rest args) (print
 'timeout-function)) #'(lambda (&rest args) (sleep 100)))

-- 
Sam Steingold (http://www.podval.org/~sds) running w2k
<http://www.camera.org> <http://www.iris.org.il> <http://www.memri.org/>
<http://www.mideasttruth.com/> <http://www.honestreporting.com>
"A pint of sweat will save a gallon of blood."          -- George S. Patton