From bb756e3d4b19c30d4a9cd4250b606c5969613ad9 Mon Sep 17 00:00:00 2001 From: Gabor Melis Date: Mon, 11 Jul 2005 12:17:43 +0000 Subject: [PATCH] 0.9.2.37: * enable-debugger: set *debug-io* to *query-io* --- src/code/debug.lisp | 3 ++- version.lisp-expr | 2 +- 2 files changed, 3 insertions(+), 2 deletions(-) diff --git a/src/code/debug.lisp b/src/code/debug.lisp index dd54548..f7acf9a 100644 --- a/src/code/debug.lisp +++ b/src/code/debug.lisp @@ -655,7 +655,8 @@ reset to ~S." (defun enable-debugger () (when (eql *invoke-debugger-hook* 'debugger-disabled-hook) - (setf *invoke-debugger-hook* nil))) + (setf *debug-io* *query-io* + *invoke-debugger-hook* nil))) (setf *debug-io* *query-io*) diff --git a/version.lisp-expr b/version.lisp-expr index 010c98d..dcaaf93 100644 --- a/version.lisp-expr +++ b/version.lisp-expr @@ -17,4 +17,4 @@ ;;; checkins which aren't released. (And occasionally for internal ;;; versions, especially for internal versions off the main CVS ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".) -"0.9.2.36" +"0.9.2.37" -- 1.7.10.4