On 7/11/05, Eric Lavigne lavigne.eric@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 ,@body) (sb-ext:timeout () ,@after-timeout))) #+allegro `(mp:with-timeout ((/ ,milliseconds 1000) ,@after-timeout) ,@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