Changeset 13132


Ignore:
Timestamp:
Oct 30, 2009, 9:32:13 PM (10 years ago)
Author:
gb
Message:

In INIT-RANDOM-STATE-SEEDS, don't error if no IP interfaces. (On most
Unix systems, an unconfigured network interface will have an IP address
of 0; on Windows, such an interface may not be visible at all.)
Fixes ticket:618.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/level-0/l0-numbers.lisp

    r13067 r13132  
    17871787(defun init-random-state-seeds ()
    17881788  (let* ((ticks (ldb (byte 32 0) (+ (mixup-hash-code (%current-tcr))
    1789                                     (primary-ip-interface-address)
     1789                                    (let* ((iface(primary-ip-interface)))
     1790                                      (or (and iface (ip-interface-addr iface))
     1791                                          0))
    17901792                                    (mixup-hash-code
    17911793                                     (logand (get-internal-real-time)
Note: See TracChangeset for help on using the changeset viewer.