[Gcl-devel] SI::universal-error-handler

[Jared Davis]

Hi,

I was hoping to experiment with using a custom universal error handler. 
However, I can't seem to set up even the most simple of error handlers.

I tried just redefining the universal-error-handler function as follows:

(defun SI::universal-error-handler (error-name correctable function-name
                                               continue-format-string
                                               error-format-string &rest args)
  (format t "Something bad happened."))

Then, to cause an error, I tried just writing (+ 3 nil).  But this seems to 
cause a loop, and I see the following output:

  Something bad happened.Something bad happened.Something bad happened.

And so on forever.  I'm sure I'm doing something silly, but I'm not sure how to 
fix it.

Thanks,
   Jared