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

Diff of /slime/swank.lisp

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

revision 1.589 by heller, Mon Sep 15 10:41:03 2008 UTC revision 1.590 by heller, Wed Sep 17 06:20:39 2008 UTC
# Line 2347  Operation was KERNEL::DIVISION, operands Line 2347  Operation was KERNEL::DIVISION, operands
2347  (defslimefun throw-to-toplevel ()  (defslimefun throw-to-toplevel ()
2348    "Invoke the ABORT-REQUEST restart abort an RPC from Emacs.    "Invoke the ABORT-REQUEST restart abort an RPC from Emacs.
2349  If we are not evaluating an RPC then ABORT instead."  If we are not evaluating an RPC then ABORT instead."
2350    (let ((restart (find-restart *sldb-quit-restart*)))    (let ((restart (and (not (symbolp *sldb-quit-restart*))
2351                          (find-restart *sldb-quit-restart*))))
2352      (cond (restart (invoke-restart restart))      (cond (restart (invoke-restart restart))
2353            (t (format nil            (t (format nil
2354                       "Restart not found: ~a"                       "Restart not found: ~a"

Legend:
Removed from v.1.589  
changed lines
  Added in v.1.590

  ViewVC Help
Powered by ViewVC 1.1.5