X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Frandom.lisp;fp=src%2Frandom.lisp;h=615e9ea8e4abae9b25189c6328b82dc798488c2d;hb=1b24abf09e9fbb2a23c25a9583e5547514482f1b;hp=f46d3ba77fc1ac1001ceefe0e214e09b588fd4de;hpb=e7e3b44fc7b51a80f364936fa428fe86862d999a;p=fiveam.git

diff --git a/src/random.lisp b/src/random.lisp
index f46d3ba..615e9ea 100644
--- a/src/random.lisp
+++ b/src/random.lisp
@@ -77,7 +77,7 @@ Examples:
               (throw 'run-once
                 (list :guard-conditions-failed))))))))
 
-;;;; *** Implementation 
+;;;; *** Implementation
 
 ;;;; We could just make FOR-ALL a monster macro, but having FOR-ALL be
 ;;;; a preproccessor for the perform-random-testing function is
@@ -183,7 +183,7 @@ BOUND)."
                             (double-float most-positive-double-float)
                             (long-float most-positive-long-float)))
            (bound (or bound (max most-positive (- most-negative)))))
-      (coerce 
+      (coerce
        (ecase (random 2)
          (0 ;; generate a positive number
           (random (min most-positive bound)))