Changeset 6632

Timestamp:

May 29, 2007, 10:20:52 PM (18 years ago)

Author:

Gary Byers

Message:

%stack-frames-in-context.

File:

• branches/ide-1.0/ccl/lib/backtrace.lisp (modified) (1 diff)

branches/ide-1.0/ccl/lib/backtrace.lisp

@@ -111 +111 @@
 
 
+;;; Return a list of "interesting" frame addresses in context, most
+;;; recent first.
+(defun %stack-frames-in-context (context &optional (include-internal *backtrace-show-internal-frames*))
+  (collect ((frames))
+    (do* ((p (bt.youngest context) (parent-frame p context))
+          (q (bt.oldest context)))
+         ((= p q) (frames))
+      (when (or (not (catch-csp-p p context)) include-internal)
+        (when (or (cfp-lfun p) include-internal)
+          (frames p))))))
+    
 (defun %print-call-history-internal (context origin detailed-p
                                              &optional (count most-positive-fixnum) (skip-initial 0))