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

Diff of /slime/swank.lisp

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

revision 1.250 by heller, Sun Oct 17 18:10:03 2004 UTC revision 1.251 by heller, Sun Oct 17 21:50:23 2004 UTC
# Line 1366  after Emacs causes a restart to be invok Line 1366  after Emacs causes a restart to be invok
1366    "The list of currenlty active restarts.")    "The list of currenlty active restarts.")
1367    
1368  ;; A set of printer variables used in the debugger.  ;; A set of printer variables used in the debugger.
1369  (define-printer-variables sldb  (define-printer-variables sldb-print
1370    (pretty nil)    (pretty nil)
1371    (level 4)    (level 4)
1372    (length 10)    (length 10)
# Line 1382  after Emacs causes a restart to be invok Line 1382  after Emacs causes a restart to be invok
1382          (*sldb-level* (1+ *sldb-level*))          (*sldb-level* (1+ *sldb-level*))
1383          (*swank-state-stack* (cons :swank-debugger-hook *swank-state-stack*)))          (*swank-state-stack* (cons :swank-debugger-hook *swank-state-stack*)))
1384      (force-user-output)      (force-user-output)
1385      (with-printer-settings sldb      (with-printer-settings sldb-print
1386        (call-with-debugging-environment        (call-with-debugging-environment
1387         (lambda () (sldb-loop *sldb-level*))))))         (lambda () (sldb-loop *sldb-level*))))))
1388    

Legend:
Removed from v.1.250  
changed lines
  Added in v.1.251

  ViewVC Help
Powered by ViewVC 1.1.5