anchor.diff:  (defun uniform-0-1 ()
     "A uniform random number greater than 0 and less than 1."
     (* (uniform) (/ (float *uniform-m*))))
  -
  -#+debug
  -(defun try (n)
  -  (let ((f 
  -	  '(lambda (N)
  -	     (without-interrupts
  -	       (time (dotimes (i N) (uniform)))))))
  -    (funcall (compile nil f) N)))
   
   ;;; For speed, you probably want an inline version of uniform-between for your application.
   (defun uniform-between (low-num high-num)
  
positive.code:   "evaluates body with the seed of the random numbers set to S-NEWSEED.
     the value of S-NEWSEED is updated.  Thus this is a way of
     Keeping several sequences of random numbers with their own seeds."
    #-system-random
    `(let ((*uniform-seed* ,s-newseed))
       (prog1 (progn ,@body) 
  	    (setf ,s-newseed *uniform-seed*)))
    #+system-random
    `(let ((*random-state* ,s-newseed))
       (prog1 (progn ,@body) 
  	    (setq ,s-newseed *random-state*))))
  
negative.code: (defun uniform ()
    "Returns the next uniform random number in the sequence
     To have your own sequence, use the macro WITH-SEED."
    (random *uniform-m* *random-state*))
  
  (defun make-uniform-1-stream (seed)
    ;; Stream of uniform random numbers between 0 and 1
  