# HG changeset patch
# User Steve Losh <steve@stevelosh.com>
# Date 1482815885 18000
# Node ID c3e4c4c8afa01c5055d6b4f9f581a405ed218274
# Parent  7f37cc5260ec9a9478c8652efbb4dc7406def340
Cleanup

diff -r 7f37cc5260ec -r c3e4c4c8afa0 losh.lisp
--- 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)