Update of /cvsroot/sbcl/sbcl/src/code
In directory sc8-pr-cvs1:/tmp/cvs-serv26714/src/code
Modified Files:
target-random.lisp
Log Message:
0.8.3.20:
Fixed bug revealed by PFD in *.26:
... (FLOAT X) should be transformed to guard against X already
being a float, in which case no coercion should occur.
Minor adjustments:
... tighten up the type of RANDOM;
... textual frobs around RANDOM area.
(there's an extremely strange bug in RANDOM on the powerpc,
which I haven't yet logged but will do if I can't figure out
what's going on)
Index: target-random.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/code/target-random.lisp,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -d -r1.8 -r1.9
--- target-random.lisp 5 May 2003 14:09:10 -0000 1.8
+++ target-random.lisp 1 Sep 2003 14:44:44 -0000 1.9
@@ -259,7 +259,7 @@
(defun random (arg &optional (state *random-state*))
(declare (inline %random-single-float %random-double-float
- #!+long-float %long-float))
+ #!+long-float %random-long-float))
(cond
((and (fixnump arg) (<= arg random-fixnum-max) (> arg 0))
(rem (random-chunk state) arg))
|