catching errors

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

I the system I am developing, I have my own top level function
which looks something like this

(defun my-toplevel ()
  (multiple-value-bind (result errorp)
                       (catch-error-quietly
                         ...body...)
    (when errorp
      (my-report-error result))))

This works all fine except when an error is generated outside
the ...body... (as an example from a fred command that gets
executed while you are in the ...body...).

When that appens, the error doesnt get catched and no error
gets reported which makes debbuging code very hard.

Has anybody experienced the same problem?

Thanks in advance for your answers.

-- 
Guillaume Cartier
cartier@math.uqam.ca
LACIM, Universite du Quebec a Montreal.