Skip to content
Snippets Groups Projects
Commit d66ee7de authored by wlott's avatar wlott
Browse files

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.).
parent 121a55c2
No related branches found
No related tags found
No related merge requests found
......@@ -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)))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment