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

Diff of /slime/swank.lisp

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

revision 1.113 by heller, Sat Jan 31 20:17:19 2004 UTC revision 1.114 by heller, Mon Feb 2 07:25:40 2004 UTC
# Line 351  element." Line 351  element."
351    (loop (with-simple-restart (abort "Retstart dispatch loop.")    (loop (with-simple-restart (abort "Retstart dispatch loop.")
352            (loop (dispatch-event (receive) socket-io)))))            (loop (dispatch-event (receive) socket-io)))))
353    
   
354  (defun simple-break ()  (defun simple-break ()
355    (with-simple-restart  (continue "Continue from interrupt.")    (with-simple-restart  (continue "Continue from interrupt.")
356      (invoke-debugger (make-condition 'simple-error      (let ((*debugger-hook* #'swank-debugger-hook))
357                                       :format-control "Interrupt from Emacs"))))        (invoke-debugger
358           (make-condition 'simple-error
359                           :format-control "Interrupt from Emacs")))))
360    
361  (defun interrupt-worker-thread (thread)  (defun interrupt-worker-thread (thread)
362    (let ((thread (etypecase thread    (let ((thread (etypecase thread

Legend:
Removed from v.1.113  
changed lines
  Added in v.1.114

  ViewVC Help
Powered by ViewVC 1.1.5