Changeset 3938


Ignore:
Timestamp:
09/21/03 00:53:10 (19 years ago)
Author:
piso
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/j/src/org/armedbear/lisp/debug.lisp

    r3427 r3938  
    22;;;
    33;;; Copyright (C) 2003 Peter Graves
    4 ;;; $Id: debug.lisp,v 1.1 2003-08-16 02:14:23 piso Exp $
     4;;; $Id: debug.lisp,v 1.2 2003-09-21 00:53:10 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    2424
    2525(defun invoke-debugger (condition)
     26  (when *debugger-hook*
     27    (let ((hook-function *debugger-hook*)
     28          (*debugger-hook* nil))
     29      (funcall hook-function condition hook-function)))
    2630  (catch 'continue
    2731    (debugger-loop)))
Note: See TracChangeset for help on using the changeset viewer.