r11484: microoptimize srl-to-srlus

diff --git a/parse-rrf.lisp b/parse-rrf.lisp
index 9a1c4fe78a3df32d67ed917e05578b7a825cfb5a..e5536a979f44d87c49e03fcfee13d6400cf721a1 100644 (file)
--- 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)