- (when current
- (setf (squeeze-player-volume player) (+ current (string-to-number value))))
- (setf (squeeze-player-volume player) (string-to-number value)))))
+ (setf (squeeze-player-volume player)
+ (and current (max 0 (min 100 (+ current number)))))
+ (setf (squeeze-player-volume player) number))))