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

Diff of /slime/swank-corman.lisp

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

revision 1.16 by heller, Thu Apr 17 14:56:43 2008 UTC revision 1.17 by trittweiler, Fri Sep 12 12:27:38 2008 UTC
# Line 176  Line 176 
176      (funcall fn)))      (funcall fn)))
177    
178  (defimplementation compute-backtrace (start end)  (defimplementation compute-backtrace (start end)
179    (subseq *stack-trace* start (min end (length *stack-trace*))))    (loop for f in (subseq *stack-trace* start (min end (length *stack-trace*)))
180            collect (make-swank-frame :%frame f :restartable :unknown)))
181    
182  (defimplementation print-frame (frame stream)  (defimplementation print-swank-frame (frame stream)
183    (format stream "~S" frame))    (format stream "~S" (swank-frame.%frame frame)))
184    
185  (defun get-frame-debug-info (frame)  (defun get-frame-debug-info (frame)
186    (or (frame-debug-info frame)    (or (frame-debug-info frame)

Legend:
Removed from v.1.16  
changed lines
  Added in v.1.17

  ViewVC Help
Powered by ViewVC 1.1.5