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

Diff of /slime/swank.lisp

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

revision 1.732 by alendvai, Fri Oct 15 22:42:14 2010 UTC revision 1.733 by sboukarev, Tue Oct 19 16:57:32 2010 UTC
# Line 2668  Operation was KERNEL::DIVISION, operands Line 2668  Operation was KERNEL::DIVISION, operands
2668    (nth index *sldb-restarts*))    (nth index *sldb-restarts*))
2669    
2670  (defslimefun invoke-nth-restart (index)  (defslimefun invoke-nth-restart (index)
2671    (invoke-restart-interactively (nth-restart index)))    (let ((restart (nth-restart index)))
2672        (when restart
2673          (invoke-restart-interactively restart))))
2674    
2675  (defslimefun sldb-abort ()  (defslimefun sldb-abort ()
2676    (invoke-restart (find 'abort *sldb-restarts* :key #'restart-name)))    (invoke-restart (find 'abort *sldb-restarts* :key #'restart-name)))

Legend:
Removed from v.1.732  
changed lines
  Added in v.1.733

  ViewVC Help
Powered by ViewVC 1.1.5