Changeset 735

Timestamp:

Mar 27, 2004, 2:50:25 AM (21 years ago)

Author:

Gary Byers

Message:

Use new error handler.

File:

• trunk/ccl/hemlock/src/macros.lisp (modified) (1 diff)

trunk/ccl/hemlock/src/macros.lisp

@@ -642 +642 @@
 ;;; handling.
 ;;;
+
+(defun lisp-error-error-handler (condition &optional internalp)
+  (declare (ignore internalp))
+  (report-hemlock-error condition)
+  (throw 'editor-top-level-catcher nil))
+
+#+no
 (defun lisp-error-error-handler (condition &optional internalp)
   (invoke-debugger condition)