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

Diff of /slime/swank-cmucl.lisp

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

revision 1.113 by pseibel, Sat Aug 28 02:27:08 2004 UTC revision 1.114 by heller, Fri Sep 3 21:08:51 2004 UTC
# Line 1477  A utility for debugging DEBUG-FUNCTION-A Line 1477  A utility for debugging DEBUG-FUNCTION-A
1477    
1478  (defimplementation print-frame (frame stream)  (defimplementation print-frame (frame stream)
1479    (let ((*standard-output* stream))    (let ((*standard-output* stream))
1480      (debug::print-frame-call frame :verbosity 1 :number nil)))      (handler-case
1481            (debug::print-frame-call frame :verbosity 1 :number nil)
1482          (error (e)
1483            (ignore-errors (princ e stream))))))
1484    
1485  (defimplementation frame-source-location-for-emacs (index)  (defimplementation frame-source-location-for-emacs (index)
1486    (code-location-source-location (di:frame-code-location (nth-frame index))))    (code-location-source-location (di:frame-code-location (nth-frame index))))

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

  ViewVC Help
Powered by ViewVC 1.1.5