+
+(declaim (inline srl-to-srlus))
+(defun srl-to-srlus (srl)
+ "Convert the standard SRL category to one oriented for use in the United States.
+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))
+ (cond
+ ((= srl 4) 2)
+ ((= srl 2) 3)
+ ((= srl 3) 4)
+ (t srl)))
+