[Git][cmucl/cmucl][master] 2 commits: Fix #142: (random 0) signals incorrect error

[Raymond Toy (@rtoy)]

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:

=====================================
src/code/rand-xoroshiro.lisp
=====================================
@@ -491,8 +491,8 @@
     (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



View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/9c0f63ffa1e459aedc9ca91fc1fbe2b2e8de6853...4c9cbf436e6cab06cb3ed7dea8ec3f6b082530a6

-- 
View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/9c0f63ffa1e459aedc9ca91fc1fbe2b2e8de6853...4c9cbf436e6cab06cb3ed7dea8ec3f6b082530a6
You're receiving this email because of your account on gitlab.common-lisp.net.


-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://mailman.common-lisp.net/pipermail/cmucl-cvs/attachments/20221016/7760224b/attachment.html>