Changeset 754

Timestamp:

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

Author:

Gary Byers

Message:

Break condition comes from context now.

File:

• trunk/ccl/lib/describe.lisp (modified) (2 diffs)

trunk/ccl/lib/describe.lisp

@@ -1548 +1548 @@
                                      *backtrace-internal-functions*))
    (break-condition :accessor break-condition
-                    :initform ccl::*break-condition*)))
+                    :initarg :break-condition)))
   
 
@@ -1748 +1748 @@
              :stack-start start
              :stack-end end
-             :tcr tcr)
+             :tcr tcr
+             :break-condition (ccl::bt.break-condition info))
            :tsp-range (make-tsp-stack-range tcr info)
            :vsp-range (make-vsp-stack-range tcr info)