From 1885277da03bc836674c9f62cb2973b74cfc2ccd Mon Sep 17 00:00:00 2001
From: "Kevin M. Rosenberg" <kevin@rosenberg.net>
Date: Mon, 8 Jan 2007 15:24:36 +0000
Subject: [PATCH] r11484: microoptimize srl-to-srlus

---
 parse-rrf.lisp | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/parse-rrf.lisp b/parse-rrf.lisp
index 9a1c4fe..e5536a9 100644
--- a/parse-rrf.lisp
+++ b/parse-rrf.lisp
@@ -30,8 +30,9 @@
 Specifically, SRL 4 in the USA has license restrictions between SRL 1 and 2 when
 used in the United States. We create a new scale (SRLUS) where SRL to SRLUS mapping is:
 (0->0, 1->1, 4->2, 2->3, 3->4)."
-  (declare (fixnum srl))
+  (declare (type (integer 0 100) srl))
   (cond
+    ((<= srl 1) srl)
     ((= srl 4) 2)
     ((= srl 2) 3)
     ((= srl 3) 4)
-- 
2.34.1