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

Diff of /slime/swank.lisp

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

revision 1.603 by heller, Thu Oct 16 21:15:48 2008 UTC revision 1.604 by heller, Fri Oct 17 21:26:53 2008 UTC
# Line 2294  format suitable for Emacs." Line 2294  format suitable for Emacs."
2294  I is an integer, and can be used to reference the corresponding frame  I is an integer, and can be used to reference the corresponding frame
2295  from Emacs; FRAME is a string representation of an implementation's  from Emacs; FRAME is a string representation of an implementation's
2296  frame."  frame."
2297    (flet ((print-swank-frame-to-string (frame)    (loop for frame in (compute-backtrace start end)
2298             (call/truncated-output-to-string          for i from start collect
2299              100          (list* i (frame-to-string frame)
2300              (lambda (stream)                 (ecase (frame-restartable-p frame)
2301                (handler-case                   ((nil) nil)
2302                    (with-bindings *backtrace-printer-bindings*                   ((t) `((:restartable t)))))))
2303                      (print-swank-frame frame stream))  
2304                  (t ()  (defun frame-to-string (frame)
2305                    (format stream "[error printing frame]")))))))    (with-bindings *backtrace-printer-bindings*
2306      (loop for frame in (compute-backtrace start end)      (call/truncated-output-to-string
2307            for i from start collect       (* (or *print-lines* 1) (or *print-right-margin* 100))
2308            (list i (print-swank-frame-to-string frame)       (lambda (stream)
2309                  (list :restartable (let ((r (swank-frame.restartable frame)))         (handler-case (print-frame frame stream)
2310                                       (check-type r (member nil t :unknown))           (serious-condition ()
2311                                       r))))))             (format stream "[error printing frame]")))))))
2312    
2313  (defslimefun debugger-info-for-emacs (start end)  (defslimefun debugger-info-for-emacs (start end)
2314    "Return debugger state, with stack frames from START to END.    "Return debugger state, with stack frames from START to END.

Legend:
Removed from v.1.603  
changed lines
  Added in v.1.604

  ViewVC Help
Powered by ViewVC 1.1.5