((/nonstd/misc/random.lisp::getseed (nil nil nil (let) nil nil nil) (((s (seed rand))) nil nil nil (if) nil nil) ((s) (0) nil (and) nil nil nil) (nil nil (integerp) (<=) nil nil nil) ((s s) (0) nil nil nil nil nil) (nil nil nil nil nil nil nil) (nil nil nil nil nil nil nil)) (/nonstd/misc/random.lisp::genrandom (nil nil nil (let*) nil nil nil) (nil nil ((new-seed (mod (* *P1* (getseed rand)) *M31*))) (mv) nil nil nil) ((rand) nil (rand) (mod) nil nil nil) ((new-seed max) nil nil (update-seed) nil nil nil) ((new-seed rand) nil nil nil nil nil nil) (nil nil nil nil nil nil nil) (nil nil nil nil nil nil nil)))