--- a/losh.lisp Tue Dec 27 00:15:55 2016 -0500
+++ b/losh.lisp Tue Dec 27 00:18:05 2016 -0500
@@ -274,13 +274,10 @@
"Return a random number in (`min`, `max`)."
(+ (epsilon min) min (random (- max min (epsilon min)))))
-(defun random-around (value spread)
- "Return a random number within `spread` of `value`."
- (etypecase spread
- (integer (random-range (- value spread)
- (+ value spread 1)))
- (real (random-range (- value spread)
- (+ value spread)))))
+(defun-inlineable random-around (value spread)
+ "Return a random number within `spread` of `value` (inclusive)."
+ (random-range-inclusive (- value spread)
+ (+ value spread)))
(let (spare)