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

Diff of /slime/swank-sbcl.lisp

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

revision 1.224 by heller, Thu Oct 16 21:15:28 2008 UTC revision 1.225 by heller, Fri Oct 17 21:26:53 2008 UTC
# Line 882  stack." Line 882  stack."
882    (let ((end (or end most-positive-fixnum)))    (let ((end (or end most-positive-fixnum)))
883      (loop for f = (nth-frame start) then (sb-di:frame-down f)      (loop for f = (nth-frame start) then (sb-di:frame-down f)
884            for i from start below end            for i from start below end
885            while f collect (make-swank-frame            while f collect f)))
                            :%frame f  
                            :restartable (frame-restartable-p f)))))  
886    
887  (defimplementation print-swank-frame (swank-frame stream)  (defimplementation print-frame (frame stream)
888    (sb-debug::print-frame-call (swank-frame.%frame swank-frame) stream))    (sb-debug::print-frame-call frame stream))
889    
890  (defun frame-restartable-p (frame)  (defimplementation frame-restartable-p (frame)
891    #+#.(swank-backend::sbcl-with-restart-frame)    #+#.(swank-backend::sbcl-with-restart-frame)
892    (sb-debug:frame-has-debug-tag-p frame))    (not (null (sb-debug:frame-has-debug-tag-p frame))))
893    
894  ;;;; Code-location -> source-location translation  ;;;; Code-location -> source-location translation
895    

Legend:
Removed from v.1.224  
changed lines
  Added in v.1.225

  ViewVC Help
Powered by ViewVC 1.1.5