Changeset 13318

Timestamp:

Dec 21, 2009, 4:08:50 PM (15 years ago)

Author:

R. Matthew Emerson

Message:

Updated accessors for new random state object.

(temporarily x86-only)

File:

• branches/new-random/library/lispequ.lisp (modified) (1 diff)

branches/new-random/library/lispequ.lisp

@@ -822 +822 @@
          ,@(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.