projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
0.8.15.13:
[sbcl.git]
/
src
/
compiler
/
ir1tran.lisp
diff --git
a/src/compiler/ir1tran.lisp
b/src/compiler/ir1tran.lisp
index
07e2ce2
..
9f4a5e3
100644
(file)
--- a/
src/compiler/ir1tran.lisp
+++ b/
src/compiler/ir1tran.lisp
@@
-50,11
+50,6
@@
the efficiency of stable code.")
(defvar *fun-names-in-this-file* nil)
the efficiency of stable code.")
(defvar *fun-names-in-this-file* nil)
-
-;;; *ALLOW-DEBUG-CATCH-TAG* controls whether we should allow the
-;;; insertion a (CATCH ...) around code to allow the debugger RETURN
-;;; command to function.
-(defvar *allow-debug-catch-tag* t)
\f
;;;; namespace management utilities
\f
;;;; namespace management utilities
@@
-390,7
+385,8
@@
(declare (list path))
(let* ((*current-path* path)
(component (make-empty-component))
(declare (list path))
(let* ((*current-path* path)
(component (make-empty-component))
- (*current-component* component))
+ (*current-component* component)
+ (*allow-instrumenting* t))
(setf (component-name component) "initial component")
(setf (component-kind component) :initial)
(let* ((forms (if for-value `(,form) `(,form nil)))
(setf (component-name component) "initial component")
(setf (component-kind component) :initial)
(let* ((forms (if for-value `(,form) `(,form nil)))
@@
-521,8
+517,7
@@
opname
:debug-name (debug-namify
"LAMBDA CAR "
opname
:debug-name (debug-namify
"LAMBDA CAR "
- opname)
- :allow-debug-catch-tag t)))))))))
+ opname))))))))))
(values))
;; Generate a reference to a manifest constant, creating a new leaf
(values))
;; Generate a reference to a manifest constant, creating a new leaf