Changeset 8036


Ignore:
Timestamp:
Jan 10, 2008, 8:19:54 AM (12 years ago)
Author:
gb
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl/lib/backtrace.lisp

    r8025 r8036  
    152152                         (not (= (the fixnum detailed-p) frame-number)))
    153153              (format t "~&~c(~x) : ~D ~a ~d"
    154                       (let* ((q (parent-frame p context)))
    155                         (if (and q (exception-frame-p q)) #\- #\space))
     154                      (if (exception-frame-p p)  #\* #\space)
    156155                      (index->address p) frame-number
    157156                      (if lfun (backtrace-call-arguments context p lfun pc))
Note: See TracChangeset for help on using the changeset viewer.