From: Gabor Melis <mega@hotpop.com>
Date: Mon, 11 Jul 2005 12:17:43 +0000 (+0000)
Subject: 0.9.2.37:
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=bb756e3d4b19c30d4a9cd4250b606c5969613ad9;p=sbcl.git

0.9.2.37:
  * enable-debugger: set *debug-io* to *query-io*
---

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"