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