Changeset 13133

Timestamp:

Oct 30, 2009, 2:33:42 PM (15 years ago)

Author:

Gary Byers

Message:

Propagate r13132 to 1.4.

File:

• release/1.4/source/level-0/l0-numbers.lisp (modified) (1 diff)

release/1.4/source/level-0/l0-numbers.lisp

@@ -1787 +1787 @@
 (defun init-random-state-seeds ()
   (let* ((ticks (ldb (byte 32 0) (+ (mixup-hash-code (%current-tcr))
-                                    (primary-ip-interface-address)
+                                    (let* ((iface(primary-ip-interface)))
+                                      (or (and iface (ip-interface-addr iface))
+                                          0))
                                     (mixup-hash-code
                                      (logand (get-internal-real-time)