projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
1.0.55: will be tagged as "sbcl-1.0.55"
[sbcl.git]
/
src
/
compiler
/
ltn.lisp
diff --git
a/src/compiler/ltn.lisp
b/src/compiler/ltn.lisp
index
80f112a
..
6dc4181
100644
(file)
--- a/
src/compiler/ltn.lisp
+++ b/
src/compiler/ltn.lisp
@@
-367,7
+367,7
@@
(unless (and (combination-p use)
(let ((info (basic-combination-info use)))
(and (template-p info)
(unless (and (combination-p use)
(let ((info (basic-combination-info use)))
(and (template-p info)
- (eq (template-result-types info) :conditional))))
+ (template-conditional-p info))))
(annotate-ordinary-lvar test)))
(values))
(annotate-ordinary-lvar test)))
(values))
@@
-523,7
+523,7
@@
(if (and safe-p (template-args-ok template call nil))
:arg-check
:arg-types)))
(if (and safe-p (template-args-ok template call nil))
:arg-check
:arg-types)))
- ((eq (template-result-types template) :conditional)
+ ((template-conditional-p template)
(let ((dest (lvar-dest lvar)))
(if (and (if-p dest)
(immediately-used-p (if-test dest) call))
(let ((dest (lvar-dest lvar)))
(if (and (if-p dest)
(immediately-used-p (if-test dest) call))