/[slime]/slime/swank.lisp
ViewVC logotype

Diff of /slime/swank.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.469 by mbaringer, Sun Apr 8 12:19:31 2007 UTC revision 1.470 by mbaringer, Sun Apr 8 14:02:37 2007 UTC
# Line 2817  after Emacs causes a restart to be invok Line 2817  after Emacs causes a restart to be invok
2817    
2818  (defun debug-in-emacs (condition)  (defun debug-in-emacs (condition)
2819    (let ((*swank-debugger-condition* condition)    (let ((*swank-debugger-condition* condition)
2820          (*sldb-restarts* (compute-restarts condition))          (*sldb-restarts* (compute-sane-restarts condition))
2821          (*package* (or (and (boundp '*buffer-package*)          (*package* (or (and (boundp '*buffer-package*)
2822                              (symbol-value '*buffer-package*))                              (symbol-value '*buffer-package*))
2823                         *package*))                         *package*))
# Line 2826  after Emacs causes a restart to be invok Line 2826  after Emacs causes a restart to be invok
2826          (*swank-state-stack* (cons :swank-debugger-hook *swank-state-stack*)))          (*swank-state-stack* (cons :swank-debugger-hook *swank-state-stack*)))
2827      (force-user-output)      (force-user-output)
2828      (call-with-debugging-environment      (call-with-debugging-environment
2829       (lambda ()       (lambda ()
2830         (with-bindings *sldb-printer-bindings*         (with-bindings *sldb-printer-bindings*
2831           (sldb-loop *sldb-level*))))))           (sldb-loop *sldb-level*))))))
2832    
2833  (defun sldb-loop (level)  (defun sldb-loop (level)
2834    (unwind-protect    (unwind-protect
2835         (catch 'sldb-enter-default-debugger         (catch 'sldb-enter-default-debugger
2836           (send-to-emacs           (send-to-emacs
2837            (list* :debug (current-thread) level            (list* :debug (current-thread) level
2838                   (debugger-info-for-emacs 0 *sldb-initial-frames*)))                   (debugger-info-for-emacs 0 *sldb-initial-frames*)))
2839           (loop (catch 'sldb-loop-catcher           (loop (catch 'sldb-loop-catcher

Legend:
Removed from v.1.469  
changed lines
  Added in v.1.470

  ViewVC Help
Powered by ViewVC 1.1.5