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

Diff of /slime/swank.lisp

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

revision 1.379 by bdowning, Thu May 25 03:15:20 2006 UTC revision 1.380 by mbaringer, Wed May 31 19:27:13 2006 UTC
# Line 2482  after Emacs causes a restart to be invok Line 2482  after Emacs causes a restart to be invok
2482  (defvar *sldb-stepping-p* nil  (defvar *sldb-stepping-p* nil
2483    "True when during execution of a stepp command.")    "True when during execution of a stepp command.")
2484    
2485    (defvar *sldb-quit-restart* 'abort-request
2486      "What restart should swank attempt to invoke when the user sldb-quits.")
2487    
2488  (defun debug-in-emacs (condition)  (defun debug-in-emacs (condition)
2489    (let ((*swank-debugger-condition* condition)    (let ((*swank-debugger-condition* condition)
2490          (*sldb-restarts* (compute-restarts condition))          (*sldb-restarts* (compute-restarts condition))
# Line 2617  Operation was KERNEL::DIVISION, operands Line 2620  Operation was KERNEL::DIVISION, operands
2620  (defslimefun throw-to-toplevel ()  (defslimefun throw-to-toplevel ()
2621    "Invoke the ABORT-REQUEST restart abort an RPC from Emacs.    "Invoke the ABORT-REQUEST restart abort an RPC from Emacs.
2622  If we are not evaluating an RPC then ABORT instead."  If we are not evaluating an RPC then ABORT instead."
2623    (let ((restart (find-restart 'abort-request)))    (let ((restart (find-restart *sldb-quit-restart*)))
2624      (cond (restart (invoke-restart restart))      (cond (restart (invoke-restart restart))
2625            (t "Restart not found: ABORT-REQUEST"))))            (t (format nil
2626                         "Restart not found: ~a"
2627                         *sldb-quit-restart*)))))
2628    
2629  (defslimefun invoke-nth-restart-for-emacs (sldb-level n)  (defslimefun invoke-nth-restart-for-emacs (sldb-level n)
2630    "Invoke the Nth available restart.    "Invoke the Nth available restart.

Legend:
Removed from v.1.379  
changed lines
  Added in v.1.380

  ViewVC Help
Powered by ViewVC 1.1.5