From: Kevin M. Rosenberg <kevin@rosenberg.net>
Date: Mon, 8 Jan 2007 15:24:36 +0000 (+0000)
Subject: r11484: microoptimize srl-to-srlus
X-Git-Tag: v2006ac.2~12
X-Git-Url: http://git.kpe.io/?p=umlisp.git;a=commitdiff_plain;h=1885277da03bc836674c9f62cb2973b74cfc2ccd

r11484: microoptimize srl-to-srlus
---

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)