/[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.30 by asimon, Sun Nov 13 17:27:40 2005 UTC revision 1.31 by aruttenberg, Tue Jan 3 03:58:39 2006 UTC
# Line 17  Line 17 
17    
18  (defun sys::break (&optional (format-control "BREAK called")  (defun sys::break (&optional (format-control "BREAK called")
19                     &rest format-arguments)                     &rest format-arguments)
20    (let ((*saved-backtrace* (sys::backtrace-as-list)))    (let ((*saved-backtrace* (backtrace-as-list-ignoring-swank-calls)))
21      (with-simple-restart (continue "Return from BREAK.")      (with-simple-restart (continue "Return from BREAK.")
22        (invoke-debugger        (invoke-debugger
23         (sys::%make-condition 'simple-condition         (sys::%make-condition 'simple-condition
# Line 25  Line 25 
25                                     :format-arguments format-arguments))))                                     :format-arguments format-arguments))))
26      nil))      nil))
27    
   
28  (defimplementation make-fn-streams (input-fn output-fn)  (defimplementation make-fn-streams (input-fn output-fn)
29    (let* ((output (ext:make-slime-output-stream output-fn))    (let* ((output (ext:make-slime-output-stream output-fn))
30           (input  (ext:make-slime-input-stream input-fn output)))           (input  (ext:make-slime-input-stream input-fn output)))
# Line 191  Line 190 
190    
191  (defvar *sldb-topframe*)  (defvar *sldb-topframe*)
192    
193    (defun backtrace-as-list-ignoring-swank-calls ()
194      (let ((list (ext:backtrace-as-list)))
195        (subseq list (1+ (or (position 'swank::swank-debugger-hook list :key 'car) -1)))))
196    
197  (defimplementation call-with-debugging-environment (debugger-loop-fn)  (defimplementation call-with-debugging-environment (debugger-loop-fn)
198    (let ((*sldb-topframe* (car (ext:backtrace-as-list)) #+nil (excl::int-newest-frame)))    (let ((*sldb-topframe* (car (backtrace-as-list-ignoring-swank-calls)) #+nil (excl::int-newest-frame)))
199      (funcall debugger-loop-fn)))      (funcall debugger-loop-fn)))
200    
201  (defun nth-frame (index)  (defun nth-frame (index)
202    (nth index (ext:backtrace-as-list)))    (nth index (backtrace-as-list-ignoring-swank-calls)))
203    
204  (defimplementation compute-backtrace (start end)  (defimplementation compute-backtrace (start end)
205    (let ((end (or end most-positive-fixnum)))    (let ((end (or end most-positive-fixnum)))
206      (subseq (ext:backtrace-as-list) start end)))      (subseq (backtrace-as-list-ignoring-swank-calls) start end)))
207    
208  (defimplementation print-frame (frame stream)  (defimplementation print-frame (frame stream)
209    (write-string (string-trim '(#\space #\newline)    (write-string (string-trim '(#\space #\newline)
# Line 208  Line 211 
211                  stream))                  stream))
212    
213  (defimplementation frame-locals (index)  (defimplementation frame-locals (index)
214    `((list :name "??" :id 0 :value "??")))    `(,(list :name "??" :id 0 :value "??")))
215    
216    
217  (defimplementation frame-catch-tags (index)  (defimplementation frame-catch-tags (index)

Legend:
Removed from v.1.30  
changed lines
  Added in v.1.31

  ViewVC Help
Powered by ViewVC 1.1.5