[erlisp-devel] mistake in with-timeout?

[Dimitry Gashinsky]

On 7/11/05, Eric Lavigne <lavigne.eric at gmail.com> wrote:
> I suspect my mistake is in erlisp:with-timeout. Here is a copy of that macro:
> 
> (defmacro with-timeout ((milliseconds &rest after-timeout) &body body)
>   #+sbcl `(sb-ext:with-timeout (/ ,milliseconds 1000)
>             (handler-case (progn , at body)
>               (sb-ext:timeout () , at after-timeout)))
>   #+allegro `(mp:with-timeout ((/ ,milliseconds 1000) , at after-timeout)
>               , at body)
>   #-(or sbcl allegro) (error
>                        "Timeouts are not yet implemented for your compiler."))
> 
> The part I added (probably broken) is prefaced by #+allegro.
> Dirk's working code is prefaced by #+sbcl.

That macro looks good to me. I tried it on the allegro cl trial 6.2
and it works as expected. It is got to be something else.

Regards,
DiG
-- 
((lambda (lambda) `(,lambda ',lambda)) '(lambda (lambda) `(,lambda ',lambda)))