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

Diff of /slime/swank-allegro.lisp

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

revision 1.124 by heller, Sat Jan 10 12:25:16 2009 UTC revision 1.125 by trittweiler, Tue May 12 17:26:48 2009 UTC
# Line 143  Line 143 
143    `(:ok ,(format nil "Set breakpoint at start of ~S" fname)))    `(:ok ,(format nil "Set breakpoint at start of ~S" fname)))
144    
145  (defun find-topframe ()  (defun find-topframe ()
146    (let ((skip-frames 3))    (let ((magic-symbol (intern (symbol-name :swank-debugger-hook)
147      (do ((f (excl::int-newest-frame) (next-frame f))                                (find-package :swank)))
148           (i 0 (1+ i)))          (top-frame (excl::int-newest-frame)))
149          ((= i skip-frames) f))))      (loop for frame = top-frame then (next-frame frame)
150              for name  = (debugger:frame-name frame)
151              for i from 0
152              when (eq name magic-symbol)
153                return (next-frame frame)
154              until (= i 10) finally (return top-frame))))
155    
156  (defun next-frame (frame)  (defun next-frame (frame)
157    (let ((next (excl::int-next-older-frame frame)))    (let ((next (excl::int-next-older-frame frame)))

Legend:
Removed from v.1.124  
changed lines
  Added in v.1.125

  ViewVC Help
Powered by ViewVC 1.1.5