Raymond Toy pushed to branch rtoy-xoro-default at cmucl / cmucl

Commits:

1 changed file:

Changes:

  • src/code/rand-xoroshiro.lisp
    ... ... @@ -206,15 +206,17 @@
    206 206
     
    
    207 207
     ;;;; Random entries:
    
    208 208
     
    
    209
    -#+x86
    
    209
    +;; Sparc and x86 have vops to implement xoroshiro-gen that are much
    
    210
    +;; faster than the portable lisp version.  Use them.
    
    211
    +#+(or x86 sparc)
    
    210 212
     (declaim (inline xoroshiro-gen))
    
    211
    -#+x86
    
    213
    +#+(or x86 sparc)
    
    212 214
     (defun xoroshiro-gen (state)
    
    213 215
       (declare (type (simple-array double-float (2)) state)
    
    214 216
     	   (optimize (speed 3) (safety 0)))
    
    215 217
       (vm::xoroshiro-next state))
    
    216 218
     
    
    217
    -#-x86
    
    219
    +#+(or x86 sparc)
    
    218 220
     (defun xoroshiro-gen (state)
    
    219 221
       (declare (type (simple-array double-float (2)) state)
    
    220 222
     	   (optimize (speed 3) (safety 0)))