[tbnl-devel] Suggestion: export GET-TRACEBACK.

[Erik Enge]

On 8/22/06, Edi Weitz <edi at agharta.de> wrote:
> This one doesn't suffice?
>
>   http://weitz.de/tbnl/#*log-lisp-backtraces-p*

Not unless I'm misunderstanding.  When the application is in
production mode the conditions never reach TBNL as I'm handling them
by logging the error and returning some HTML (an error page).

Here's the code that is invoked when an error occurs:

(defun web-when-error (user dbcon request reply condition)
  (declare (ignore dbcon reply))
  (if (eql *sys-class* :dev)
      (error condition)
      (progn
        (tbnl:log-message :error (tbnl::get-backtrace condition))
        (case (type-of condition)
          (db:validation-error
           (validation-error-page user request condition))
          (t (an-error-occurred-page user))))))

Am I missing something embarrassingly obvious?

Erik.