Changeset 6012


Ignore:
Timestamp:
Mar 9, 2007, 5:24:42 AM (13 years ago)
Author:
gb
Message:

printing random-state: don't shift seeds.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/ccl/lib/numbers.lisp

    r5682 r6012  
    352352
    353353(defmethod print-object ((rs random-state) stream)
    354   (let* ((byte (byte 16 (- 16 target::fixnum-shift))))
    355     (format stream "#.(~S ~S ~S)"   ;>> #.GAG!!!
    356             'ccl::initialize-random-state
    357             (ldb byte (%svref rs 1))
    358             (ldb byte (%svref rs 2)))))
     354  (format stream "#.(~S ~S ~S)"         ;>> #.GAG!!!
     355          'ccl::initialize-random-state
     356          (%svref rs 1)
     357          (%svref rs 2)))
    359358
    360359
Note: See TracChangeset for help on using the changeset viewer.