Changeset 752

Timestamp:

Apr 2, 2004, 9:49:36 PM (21 years ago)

Author:

Gary Byers

Message:

Backtrace context now contains the break condition.

File:

• trunk/ccl/level-1/l1-readloop-lds.lisp (modified) (2 diffs)

trunk/ccl/level-1/l1-readloop-lds.lisp

@@ -376 +376 @@
 (declaim (notinline select-backtrace))
 
-(defmacro new-backtrace-info (dialog youngest oldest tcr)
-  `(vector ,dialog ,youngest ,oldest ,tcr nil (%catch-top ,tcr)))
+(defmacro new-backtrace-info (dialog youngest oldest tcr condition)
+  `(vector ,dialog ,youngest ,oldest ,tcr nil (%catch-top ,tcr) ,condition))
 
 (defun select-backtrace ()
@@ -421 +421 @@
                                             (last-frame-ptr))
                                         (last-frame-ptr))
-                                      (%current-tcr)))
+                                      (%current-tcr)
+                                      condition))
                 (*backtrace-contexts* (cons context *backtrace-contexts*)))
          (with-toplevel-commands :break