Changeset 3938

Timestamp:

09/21/03 00:53:10 (19 years ago)

Author:

piso

Message:

INVOKE-DEBUGGER: support *DEBUGGER-HOOK* correctly.

File:

• trunk/j/src/org/armedbear/lisp/debug.lisp (modified) (2 diffs)

trunk/j/src/org/armedbear/lisp/debug.lisp

@@ -2 +2 @@
 ;;;
 ;;; Copyright (C) 2003 Peter Graves
-;;; $Id: debug.lisp,v 1.1 2003-08-16 02:14:23 piso Exp $
+;;; $Id: debug.lisp,v 1.2 2003-09-21 00:53:10 piso Exp $
 ;;;
 ;;; This program is free software; you can redistribute it and/or
@@ -24 +24 @@
 
 (defun invoke-debugger (condition)
+  (when *debugger-hook*
+    (let ((hook-function *debugger-hook*)
+          (*debugger-hook* nil))
+      (funcall hook-function condition hook-function)))
   (catch 'continue
     (debugger-loop)))