Changeset 281

Timestamp:

Jan 13, 2004, 4:58:45 PM (21 years ago)

Author:

Gary Byers

Message:

Can't have a function called CL:RANDOM-STATE, so change its name and its
only caller.

File:

• trunk/ccl/level-1/l1-numbers.lisp (modified) (2 diffs)

trunk/ccl/level-1/l1-numbers.lisp

@@ -363 +363 @@
 ; random associated stuff except for the print-object method which is still in
 ; "lib;numbers.lisp"
-(defun random-state (seed-1 seed-2)
+(defun initialize-random-state (seed-1 seed-2)
   (unless (and (fixnump seed-1) (%i<= 0 seed-1) (%i< seed-1 #x10000))
     (report-bad-arg seed-1 '(unsigned-byte 16)))
@@ -374 +374 @@
              (%ilsl shift seed-2))))
 
-(defparameter *random-state* (random-state #xFBF1 9))
+(defparameter *random-state* (initialize-random-state #xFBF1 9))
 
 (defun make-random-state (&optional state &aux (seed-1 0) (seed-2 0))