aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorGravatar Pouar <pouar@pouar.net>2020-10-03 13:27:33 -0500
committerGravatar Pouar <pouar@pouar.net>2020-10-03 13:27:33 -0500
commitd7f7a366c0ccfe9150e539367e6985d6c8508e93 (patch)
treecf5484ac1ee21d7d4af28e59837193e728183fc4
parentmake use of random-from-range again (diff)
decided to not wrap it in values
this won't be necessary in newer serapeum
-rw-r--r--core/util.lisp6
1 files changed, 3 insertions, 3 deletions
diff --git a/core/util.lisp b/core/util.lisp
index 180c6fc..1e7cb1a 100644
--- a/core/util.lisp
+++ b/core/util.lisp
@@ -137,6 +137,6 @@ argument.")
(defun random-from-range (from to)
(s:random-in-range from (1+ to)))
(define-compiler-macro random-from-range (from to)
- `(values (s:random-in-range ,from ,(if (constantp to)
- (eval `(1+ ,to))
- `(1+ ,to)))))
+ `(s:random-in-range ,from ,(if (constantp to)
+ (eval `(1+ ,to))
+ `(1+ ,to))))