Changeset 13321 for branches/new-random


Ignore:
Timestamp:
Dec 22, 2009, 5:04:48 AM (10 years ago)
Author:
rme
Message:

print-object for random-state objects: support only new random state.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/new-random/lib/numbers.lisp

    r13310 r13321  
    347347(defparameter a-short-float 1.0s0)
    348348
    349 #-x86-target
    350 (defmethod print-object ((rs random-state) stream)
    351   (let* ((s1 (random.seed-1 rs))
    352          (s2 (random.seed-2 rs)))
    353     #+64-bit-target
    354     (setq s1 (ldb (byte 16 16) s1)
    355           s2 (ldb (byte 16 0) s1))
    356     (format stream "#.(~S ~S ~S)"         ;>> #.GAG!!!
    357             'ccl::initialize-random-state
    358             s1
    359             s2)))
    360 
    361 #+x86-target
    362349(defmethod print-object ((rs random-state) stream)
    363350  (let* ((s1 (random.mrg31k3p-state rs)))
Note: See TracChangeset for help on using the changeset viewer.