Merge pull request froydnj#22 from lueo/master

Fix a bug on win32
howeyc · Jul 8, 2012 · d94fd03 · d94fd03
2 parents 6fdafa1 + 99f5fe9
commit d94fd03
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/prng/prng.lisp b/src/prng/prng.lisp
@@ -80,7 +80,7 @@ replacement for COMMON-LISP:RANDOM."
             (assert (>= (read-sequence seq seed-file) num-bytes))
             seq))
   ;; FIXME: this is _untested_!
-  #+(and win32 sb-dynamic-core)(sb!win32:crypt-gen-random num-bytes)
+  #+(and win32 sb-dynamic-core)(sb-win32:crypt-gen-random num-bytes)
   #-(or unix (and win32 sb-dynamic-core))(error "OS-RANDOM-SEED is not supported on your platform."))
 
 (defun read-os-random-seed (source &optional (prng *prng*))