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)