Raymond Toy pushed to branch master at cmucl / cmucl

Commits:

• cde14045
  by Raymond Toy at 2022-10-16T14:26:39+00:00

  Fix #142: (random 0) signals incorrect error
  

• 4c9cbf43
  by Raymond Toy at 2022-10-16T14:26:41+00:00

  Merge branch 'issue-142-random-0-wrong-error' into 'master'
  
  Fix #142: (random 0) signals incorrect error
  
  Closes #142
  
  See merge request cmucl/cmucl!99

1 changed file:

• src/code/rand-xoroshiro.lisp

Changes:

     (t

      (error 'simple-type-error

 	    :expected-type '(or (integer 1) (float (0.0))) :datum arg

-	    :format-control _"Argument is not a positive integer or a positive float: ~S")

-	    :format-arguments (list arg))))

+	    :format-control _"Argument is not a positive integer or a positive float: ~S"

+	    :format-arguments (list arg)))))

 ;; Jump function for the generator.  See the jump function in

 ;; http://xoroshiro.di.unimi.it/xoroshiro128plus.c