- (set-lrl-hash cui srl cui-lrl-hash)
- (set-lrl-hash lui srl lui-lrl-hash)
- (set-lrl-hash sui srl sui-lrl-hash)
- (set-lrl-hash (make-cuisui cui sui) srl cuisui-lrl-hash)
- (multiple-value-bind (val found) (gethash sab sab-srl-hash)
- (declare (ignore val))
- (unless found
- (setf (gethash sab sab-srl-hash) srl)))))
+ (set-lrl-hash cui srl cui-lrl-hash)
+ (set-lrl-hash lui srl lui-lrl-hash)
+ (set-lrl-hash sui srl sui-lrl-hash)
+ (set-lrl-hash (make-cuisui cui sui) srl cuisui-lrl-hash)
+ (set-lrl-hash cui srlus cui-lrlus-hash)
+ (set-lrl-hash lui srlus lui-lrlus-hash)
+ (set-lrl-hash sui srlus sui-lrlus-hash)
+ (set-lrl-hash (make-cuisui cui sui) srlus cuisui-lrlus-hash)
+ (multiple-value-bind (val found) (gethash sab sab-srl-hash)
+ (declare (ignore val))
+ (unless found
+ (setf (gethash sab sab-srl-hash) srl)))
+ (multiple-value-bind (val found) (gethash sab sab-srlus-hash)
+ (declare (ignore val))
+ (unless found
+ (setf (gethash sab sab-srlus-hash) srlus))))))