X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Frandom.lisp;fp=src%2Frandom.lisp;h=07b5eb9526bcebd3e2cf769554650dfeb8a3d34b;hb=a3a3f45f2473649d64411e6e099c533c6c309fdd;hp=b9bf4e79b7065e6ce79b7288489f8c1c969c0321;hpb=55740edc3e2b3444e7e17978f68df8eced2b19e7;p=fiveam.git

diff --git a/src/random.lisp b/src/random.lisp
index b9bf4e7..07b5eb9 100644
--- a/src/random.lisp
+++ b/src/random.lisp
@@ -66,7 +66,7 @@ Examples:
   (for-all (((a b) (gen-two-integers)))
     (is (integerp a))
     (is (integerp b)))"
-  (with-unique-names (test-lambda-args)
+  (with-gensyms (test-lambda-args)
     `(perform-random-testing
       (list ,@(mapcar #'second bindings))
       (lambda (,test-lambda-args)