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

Diff of /slime/swank.lisp

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

revision 1.577 by heller, Wed Aug 27 17:52:58 2008 UTC revision 1.578 by heller, Wed Aug 27 17:53:03 2008 UTC
# Line 1159  The processing is done in the extent of Line 1159  The processing is done in the extent of
1159    (handle-or-process-requests connection))    (handle-or-process-requests connection))
1160    
1161  (defun process-io-interrupt (connection)  (defun process-io-interrupt (connection)
1162    (log-event "process-io-interrupt~%")    (log-event "process-io-interrupt ~d ...~%" *io-interupt-level*)
1163    (invoke-or-queue-interrupt    (let ((*io-interupt-level* (1+ *io-interupt-level*)))
1164     (lambda () (handle-or-process-requests connection))))      (invoke-or-queue-interrupt
1165         (lambda () (handle-or-process-requests connection))))
1166      (log-event "process-io-interrupt ~d ... done ~%" *io-interupt-level*))
1167    
1168  (defun handle-or-process-requests (connection)  (defun handle-or-process-requests (connection)
1169    (log-event "handle-or-process-requests: ~a~%" *swank-state-stack*)    (log-event "handle-or-process-requests: ~a~%" *swank-state-stack*)
# Line 2093  after Emacs causes a restart to be invok Line 2095  after Emacs causes a restart to be invok
2095  (defun swank-debugger-hook (condition hook)  (defun swank-debugger-hook (condition hook)
2096    "Debugger function for binding *DEBUGGER-HOOK*."    "Debugger function for binding *DEBUGGER-HOOK*."
2097    (declare (ignore hook))    (declare (ignore hook))
2098    (restart-case    (call-with-debugger-hook #'swank-debugger-hook
2099        (call-with-debugger-hook                             (lambda () (invoke-slime-debugger condition))))
        #'swank-debugger-hook (lambda () (invoke-slime-debugger condition)))  
     (default-debugger (&optional v)  
       :report "Use default debugger." (declare (ignore v))  
       (invoke-default-debugger condition))))  
2100    
2101  (defun invoke-default-debugger (condition)  (defun invoke-default-debugger (condition)
2102    (let ((*debugger-hook* nil))    (let ((*debugger-hook* nil))

Legend:
Removed from v.1.577  
changed lines
  Added in v.1.578

  ViewVC Help
Powered by ViewVC 1.1.5