Index: /branches/new-random/library/lispequ.lisp
===================================================================
--- /branches/new-random/library/lispequ.lisp	(revision 13317)
+++ /branches/new-random/library/lispequ.lisp	(revision 13318)
@@ -822,8 +822,14 @@
          ,@(mapcar #'numify cases)))))
 
+#-x86-target
 (def-accessors (random-state) %svref
   ()
   random.seed-1
   random.seed-2)
+
+#+x86-target
+(def-accessors (random-state) %svref
+  ()
+  random.mrg31k3p-state)
 
 ;;; IEEE-floating-point constants.