Raymond Toy pushed to branch master at cmucl / cmucl

Commits:

1 changed file:

Changes:

  • src/code/rand-xoroshiro.lisp
    ... ... @@ -492,7 +492,7 @@
    492 492
          (error 'simple-type-error
    
    493 493
     	    :expected-type '(or (integer 1) (float (0.0))) :datum arg
    
    494 494
     	    :format-control _"Argument is not a positive integer or a positive float: ~S")
    
    495
    -	    :format-arguments (list arg)))))
    
    495
    +	    :format-arguments (list arg))))
    
    496 496
     
    
    497 497
     ;; Jump function for the generator.  See the jump function in
    
    498 498
     ;; http://xoroshiro.di.unimi.it/xoroshiro128plus.c