Dear Erlisp developers,
I need some help to figure out a problem with my code. I am trying to add Allegro support to Erlisp, but I ran into some trouble as shown in this test result:
...........f........................ Did 36 checks. Pass: 35 (97%) Skip: 0 (0%) Fail: 1 (2%)
Failure Details: RECEIVE-WITH-TIMEOUT []: NIL.
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. Documentation on the allegro with-timeout macro is available here: http://www.franz.com/support/documentation/6.2/doc/pages/operators/mp/with-t...
A complete copy of compatibility.lisp (the only modified file) is available here: http://plaza.ufl.edu/lavigne/compatibility.lisp Hopefully you can figure out my mistake so Erlisp can work on one more compiler. I would appreciate any ideas about what might be wrong. Eric