Changeset 8036

Timestamp:

Jan 10, 2008, 12:19:54 AM (17 years ago)

Author:

Gary Byers

Message:

%PRINT-CALL-HISTORY-INTERNAL: mark exeption frames, not their children.

File:

• branches/working-0711/ccl/lib/backtrace.lisp (modified) (1 diff)

branches/working-0711/ccl/lib/backtrace.lisp

@@ -152 +152 @@
                          (not (= (the fixnum detailed-p) frame-number)))
               (format t "~&~c(~x) : ~D ~a ~d"
-                      (let* ((q (parent-frame p context)))
-                        (if (and q (exception-frame-p q)) #\- #\space))
+                      (if (exception-frame-p p)  #\* #\space)
                       (index->address p) frame-number
                       (if lfun (backtrace-call-arguments context p lfun pc))