projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
1.0.3.12: Use the interpreter when creating functions for undeclared aliens
[sbcl.git]
/
src
/
compiler
/
ir1tran-lambda.lisp
diff --git
a/src/compiler/ir1tran-lambda.lisp
b/src/compiler/ir1tran-lambda.lisp
index
2486661
..
f424f51
100644
(file)
--- a/
src/compiler/ir1tran-lambda.lisp
+++ b/
src/compiler/ir1tran-lambda.lisp
@@
-1018,6
+1018,10
@@
`(,(car x) .
(macro . ,(coerce (cdr x) 'function))))
macros)
`(,(car x) .
(macro . ,(coerce (cdr x) 'function))))
macros)
+ ;; Inherit MUFFLE-CONDITIONS from the call-site lexenv
+ ;; rather than the definition-site lexenv, since it seems
+ ;; like a much more common case.
+ :handled-conditions (lexenv-handled-conditions *lexenv*)
:policy (lexenv-policy *lexenv*)))
(*allow-instrumenting* (and (not system-lambda) *allow-instrumenting*)))
(ir1-convert-lambda `(lambda ,@body)
:policy (lexenv-policy *lexenv*)))
(*allow-instrumenting* (and (not system-lambda) *allow-instrumenting*)))
(ir1-convert-lambda `(lambda ,@body)