Changeset 13392

Timestamp:

Jan 18, 2010, 7:39:31 PM (15 years ago)

Author:

R. Matthew Emerson

Message:

The lap version of %mrg31k3p works on ppc64 too, so don't
read the lisp version when ppc64-target.

File:

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

trunk/source/level-0/l0-numbers.lisp

@@ -1806 +1806 @@
 ;;; too bad in a 64-bit CCL, but the generator pretty much has to be
 ;;; in LAP for 32-bit ports.
-#-(or x8632-target ppc32-target x8664-target)
+#-(or x8632-target ppc32-target x8664-target ppc64-target)
 (defun %mrg31k3p (state)
   (let* ((v (random.mrg31k3p-state state)))