/[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.217 by heller, Sat Aug 30 15:33:56 2008 UTC revision 1.218 by trittweiler, Fri Sep 12 12:27:38 2008 UTC
# Line 262  Line 262 
262    
263  (defun sbcl-source-file-p (filename)  (defun sbcl-source-file-p (filename)
264    (when filename    (when filename
265      (loop for (_ pattern) in (logical-pathname-translations "SYS")      (loop for (nil pattern) in (logical-pathname-translations "SYS")
266            thereis (pathname-match-p filename pattern))))            thereis (pathname-match-p filename pattern))))
267    
268  (defun guess-readtable-for-filename (filename)  (defun guess-readtable-for-filename (filename)
# Line 849  stack." Line 849  stack."
849    (let ((end (or end most-positive-fixnum)))    (let ((end (or end most-positive-fixnum)))
850      (loop for f = (nth-frame start) then (sb-di:frame-down f)      (loop for f = (nth-frame start) then (sb-di:frame-down f)
851            for i from start below end            for i from start below end
852            while f            while f collect (make-swank-frame
853            collect f)))                             :%frame f
854                               :restartable (frame-restartable-p f)))))
855  (defimplementation print-frame (frame stream)  
856    (sb-debug::print-frame-call frame stream))  (defimplementation print-swank-frame (swank-frame stream)
857      (sb-debug::print-frame-call (swank-frame.%frame swank-frame) stream))
858    
859    (defun frame-restartable-p (frame)
860      #+#.(swank-backend::sbcl-with-restart-frame)
861      (sb-debug:frame-has-debug-tag-p frame))
862    
863  ;;;; Code-location -> source-location translation  ;;;; Code-location -> source-location translation
864    

Legend:
Removed from v.1.217  
changed lines
  Added in v.1.218

  ViewVC Help
Powered by ViewVC 1.1.5