diff --git a/compiler/ltn.lisp b/compiler/ltn.lisp index 74eff2b963e826d84de3444d77b13adb4ad32d86..86019f4cb6190aaaa718f85d6ef00c1015d1f740 100644 --- a/compiler/ltn.lisp +++ b/compiler/ltn.lisp @@ -706,7 +706,7 @@ mentioned in a particular efficency note. NIL means no limit.") (proclaim '(type (or index null) *efficency-note-limit*)) -(defvar *efficency-note-cost-threshold* 1 +(defvar *efficency-note-cost-threshold* 5 "This is the minumum cost difference between the chosen implementation and the next alternative that justifies an efficency note.") (proclaim '(type index *efficency-note-cost-threshold*))