projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
1.0.7.4: RESTRICT-COMPILER-POLICY
[sbcl.git]
/
src
/
compiler
/
srctran.lisp
diff --git
a/src/compiler/srctran.lisp
b/src/compiler/srctran.lisp
index
359e2f3
..
709b1d6
100644
(file)
--- a/
src/compiler/srctran.lisp
+++ b/
src/compiler/srctran.lisp
@@
-4127,7
+4127,5
@@
(unless (and (constant-lvar-p quality-name)
(policy-quality-name-p (lvar-value quality-name)))
(give-up-ir1-transform))
(unless (and (constant-lvar-p quality-name)
(policy-quality-name-p (lvar-value quality-name)))
(give-up-ir1-transform))
- `(let* ((acons (assoc quality-name policy))
- (result (or (cdr acons) 1)))
- result))
+ '(%policy-quality policy quality-name))