Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse code

Merge pull request #22 from lueo/master

Fix a bug on win32
  • Loading branch information...
commit d94fd03d2fdaaea9009f6fa99bf063f4f2731280 2 parents 6fdafa1 + 99f5fe9
Nathan Froyd authored

Showing 1 changed file with 1 addition and 1 deletion. Show diff stats Hide diff stats

  1. +1 1  src/prng/prng.lisp
2  src/prng/prng.lisp
@@ -80,7 +80,7 @@ replacement for COMMON-LISP:RANDOM."
80 80 (assert (>= (read-sequence seq seed-file) num-bytes))
81 81 seq))
82 82 ;; FIXME: this is _untested_!
83   - #+(and win32 sb-dynamic-core)(sb!win32:crypt-gen-random num-bytes)
  83 + #+(and win32 sb-dynamic-core)(sb-win32:crypt-gen-random num-bytes)
84 84 #-(or unix (and win32 sb-dynamic-core))(error "OS-RANDOM-SEED is not supported on your platform."))
85 85
86 86 (defun read-os-random-seed (source &optional (prng *prng*))

0 comments on commit d94fd03

Please sign in to comment.
Something went wrong with that request. Please try again.