From 6f9682b13d9d3d78efe9ca94d319bc00768ed577 Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Wed, 24 Oct 1990 15:24:45 +0000 Subject: [PATCH] Upped *efficency-note-cost-threshold* to 5 so that we don't get so many trivial efficency notes by default. --- compiler/ltn.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/compiler/ltn.lisp b/compiler/ltn.lisp index 74eff2b96..86019f4cb 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*)) -- GitLab