X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;ds=sidebyside;f=parse-rrf.lisp;h=e5536a979f44d87c49e03fcfee13d6400cf721a1;hb=1885277da03bc836674c9f62cb2973b74cfc2ccd;hp=9a1c4fe78a3df32d67ed917e05578b7a825cfb5a;hpb=135cbbc7ad7773eef7e205b7f82d19ea17c346e4;p=umlisp.git

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)