diff --git a/code/debug-int.lisp b/code/debug-int.lisp index 602ffec36dce38a7dc188b3df75d769bbf131f56..e49dfe3970fcc828dd451088b6d1a05675f27318 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.98 2000/11/06 18:08:16 dtc Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/debug-int.lisp,v 1.99 2000/11/15 11:42:58 pw Exp $") ;;; ;;; ********************************************************************** ;;; @@ -947,10 +947,15 @@ :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 lisp fram. + ;; Both still seem valid - choose the lisp frame. (when (zerop depth) (format t "Debug: Both still valid ~s ~s ~s ~s~%" lisp-ocfp lisp-ra c-ocfp c-ra)) + #+FreeBSD4 + (if (sap> lisp-ocfp c-ocfp) + (values lisp-ra lisp-ocfp) + (values c-ra c-ocfp)) + #-FreeBSD4 (values lisp-ra lisp-ocfp)) (lisp-path-fp ;; The lisp convention is looking good.