Changeset 13373 for trunk/source/level-1


Ignore:
Timestamp:
Jan 11, 2010, 6:30:17 PM (10 years ago)
Author:
rme
Message:

initialize-mrg31k3p-state: the seed components are not necessarily
fixnums in a 32-bit lisp. Fixes ticket:647.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/level-1/l1-numbers.lisp

    r13334 r13373  
    448448    (declare (dynamic-extent args))
    449449    (dolist (a args)
    450       (unless (and (fixnump a) (%i<= 0 a) (< a mrg31k3p-limit))
     450      (unless (and (integerp a) (<= 0 a) (< a mrg31k3p-limit))
    451451        (report-bad-arg a `(integer 0 (,mrg31k3p-limit)))))
    452452    (when (and (zerop x0) (zerop x1) (zerop x2))
Note: See TracChangeset for help on using the changeset viewer.