From d66ee7de3ac71bca158d07479092d9507bd0672f Mon Sep 17 00:00:00 2001 From: wlott <wlott> Date: Sun, 14 Jul 1991 02:48:36 +0000 Subject: [PATCH] When using the form offset to find the source form, bind *read-suppress* to T to keep the reader from barfing on stuff that will no longer read (e.g. #.foo in the wrong package, etc.). --- code/debug.lisp | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/code/debug.lisp b/code/debug.lisp index 479efb8d8..83ff3bfc3 100644 --- a/code/debug.lisp +++ b/code/debug.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/debug.lisp,v 1.18 1991/05/29 11:42:01 chiles Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/debug.lisp,v 1.19 1991/07/14 02:48:36 wlott Exp $") ;;; ;;; ********************************************************************** ;;; @@ -838,8 +838,9 @@ ;;; GET-TOP-LEVEL-FORM -- Internal ;;; - (dotimes (i local-tlf-offset) - (read f)))) +;;; Given a code location, return the associated form-number translations +;;; and the actual top-level form. We check our cache --- if there is a miss, +;;; we dispatch on the kind of the debug source. ;;; (defun get-top-level-form (location) (let ((d-source (di:code-location-debug-source location))) -- GitLab