diff --git a/code/debug-int.lisp b/code/debug-int.lisp index 8681ef9c17f4d39ba449ca9645ff11f81e536f2a..602ffec36dce38a7dc188b3df75d769bbf131f56 100644 --- a/code/debug-int.lisp +++ b/code/debug-int.lisp @@ -5,7 +5,7 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/debug-int.lisp,v 1.97 2000/11/06 17:47:59 dtc Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/debug-int.lisp,v 1.98 2000/11/06 18:08:16 dtc Exp $") ;;; ;;; ********************************************************************** ;;; @@ -947,13 +947,11 @@ :depth (1+ depth))) (c-path-fp (x86-call-context c-ocfp :depth (1+ depth)))) (cond ((and lisp-path-fp c-path-fp) - ;; Both still seem valid - choose the smallest. + ;; Both still seem valid - choose the lisp fram. (when (zerop depth) (format t "Debug: Both still valid ~s ~s ~s ~s~%" lisp-ocfp lisp-ra c-ocfp c-ra)) - (if (sap< lisp-ocfp c-ocfp) - (values lisp-ra lisp-ocfp) - (values c-ra c-ocfp))) + (values lisp-ra lisp-ocfp)) (lisp-path-fp ;; The lisp convention is looking good. ; (format t "*C lisp-ocfp ~s ~s~%" lisp-ocfp lisp-ra)