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

Diff of /slime/swank-abcl.lisp

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

revision 1.53 by heller, Sun Aug 31 11:58:01 2008 UTC revision 1.54 by trittweiler, Fri Sep 12 12:27:38 2008 UTC
# Line 252  Line 252 
252    
253  (defimplementation compute-backtrace (start end)  (defimplementation compute-backtrace (start end)
254    (let ((end (or end most-positive-fixnum)))    (let ((end (or end most-positive-fixnum)))
255      (subseq (backtrace-as-list-ignoring-swank-calls) start end)))      (loop for f in (subseq (backtrace-as-list-ignoring-swank-calls) start end)
256              collect (make-swank-frame :%frame f :restartable :unknown))))
257    
258  (defimplementation print-frame (frame stream)  (defimplementation print-swank-frame (frame stream)
259    (write-string (string-trim '(#\space #\newline)    (write-string (string-trim '(#\space #\newline)
260                               (prin1-to-string frame))                               (prin1-to-string (swank-frame.%frame frame)))
261                  stream))                  stream))
262    
263  (defimplementation frame-locals (index)  (defimplementation frame-locals (index)

Legend:
Removed from v.1.53  
changed lines
  Added in v.1.54

  ViewVC Help
Powered by ViewVC 1.1.5