Changeset 788

Timestamp:

Apr 18, 2004, 11:49:39 PM (21 years ago)

Author:

Gary Byers

Message:

Don't use %CURRENT-TCR, in %LAST-FN-ON-STACK.

File:

• trunk/ccl/level-1/l1-error-system.lisp (modified) (1 diff)

trunk/ccl/level-1/l1-error-system.lisp

@@ -568 +568 @@
 
 (defun %last-fn-on-stack (&optional (number 0) (s (%get-frame-ptr)))
-  (let* ((fn nil)
-         (tcr (%current-tcr)))
+  (let* ((fn nil))
     (let ((p s))
       (tagbody
         (dotimes (i number)
           (declare (fixnum i))
-          (unless (setq p (parent-frame p tcr))
+          (unless (setq p (parent-frame p nil))
             (go done)))
         (if  p