(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))
(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))
(defvar *efficiency-note-cost-threshold* 5
#!+sb-doc
- "This is the minumum cost difference between the chosen implementation and
+ "This is the minimum cost difference between the chosen implementation and
the next alternative that justifies an efficiency note.")
(declaim (type index *efficiency-note-cost-threshold*))