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

Diff of /slime/swank-allegro.lisp

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

revision 1.16 by heller, Mon Mar 1 09:02:06 2004 UTC revision 1.17 by heller, Wed Mar 3 20:55:38 2004 UTC
# Line 109  Line 109 
109    
110  (defimplementation call-with-debugging-environment (debugger-loop-fn)  (defimplementation call-with-debugging-environment (debugger-loop-fn)
111    (let ((*sldb-topframe* (excl::int-newest-frame))    (let ((*sldb-topframe* (excl::int-newest-frame))
         (*debugger-hook* nil)  
112          (excl::*break-hook* nil)          (excl::*break-hook* nil)
         (*package* *buffer-package*)  
113          (*sldb-restarts*          (*sldb-restarts*
114           (compute-restarts *swank-debugger-condition*))           (compute-restarts *swank-debugger-condition*)))
         (*print-pretty* nil)  
         (*print-readably* nil)  
         (*print-level* 3)  
         (*print-length* 10))  
115      (funcall debugger-loop-fn)))      (funcall debugger-loop-fn)))
116    
117  (defun format-restarts-for-emacs ()  (defun format-restarts-for-emacs ()

Legend:
Removed from v.1.16  
changed lines
  Added in v.1.17

  ViewVC Help
Powered by ViewVC 1.1.5