Toplevel question

[cartier@math.uqam.ca (Guillaume Cartier)]

Hello,

I am developing a mathematical software that is based on a
read-eval-print-loop. Naturaly, I would like to use MCL's own loop
since it manages a lot of things automaticaly.

The problem is that I need to have my own error handler active.
The following almost works

(%set-toplevel
  (function
    (lambda ()
      (handler-bind ((error (function my-own-error-handler)))
        (let ((*break-on-warnings* nil))
          (loop
            (toplevel-loop)))))))

(toplevel)

But things like meta-g in the listener behave strangely so
there's something I not doing quite correctly.

Any advice?

Thanks,
Guillaume.

*********************************************************************
* Guillaume Cartier                 (514) 844-5294 (maison)         *
* L.A.C.I.M.                        (514) 987-4290 (bureau)         *
* Universite du Quebec a Montreal   (514) 987-8477 (telecopieur)    *
* Montreal, Quebec, Canada          cartier@math.uqam.ca (internet) *
*********************************************************************