[slime-cvs] CVS update: slime/swank.lisp

[Helmut Eller]

Update of /project/slime/cvsroot/slime
In directory common-lisp.net:/tmp/cvs-serv17921

Modified Files:
	swank.lisp 
Log Message:
(swank-debugger-hook): Flush the output streams and be careful when
accessing *buffer-package*.

Date: Wed Jan 21 18:26:32 2004
Author: heller

Index: slime/swank.lisp
diff -u slime/swank.lisp:1.106 slime/swank.lisp:1.107
--- slime/swank.lisp:1.106	Wed Jan 21 17:33:45 2004
+++ slime/swank.lisp	Wed Jan 21 18:26:32 2004
@@ -1,4 +1,4 @@
-;;;; -*- Mode: lisp; outline-regexp: ";;;;;*"; indent-tabs-mode: nil -*-
+;;;; -*- Mode: lisp; outline-regexp: ";;;;;*"; indent-tabs-mode: nil -*-;;;
 ;;;
 ;;; swank.lisp --- the portable bits
 ;;;
@@ -546,6 +546,7 @@
 (defvar *sldb-initial-frames* 20
   "The initial number of backtrace frames to send to Emacs.")
 
+
 (defun swank-debugger-hook (condition hook)
   "Debugger entry point, called from *DEBUGGER-HOOK*.
 Sends a message to Emacs declaring that the debugger has been entered,
@@ -555,8 +556,11 @@
 ;;  (unless (or *processing-rpc* (not *multiprocessing-enabled*))
 ;;    (request-async-debug condition))
   (let ((*swank-debugger-condition* condition)
-        (*package* *buffer-package*))
+        (*package* (or (and (boundp '*buffer-package*)
+                            (symbol-value '*buffer-package*))
+                       *package*)))
     (let ((*sldb-level* (1+ *sldb-level*)))
+      (force-user-output)
       (call-with-debugging-environment
        (lambda () (sldb-loop *sldb-level*))))))