Changeset 7415


Ignore:
Timestamp:
Oct 12, 2007, 9:51:13 AM (12 years ago)
Author:
gb
Message:

RANDOM-STATE printing changes for 32/64-bit.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0710/ccl/lib/numbers.lisp

    r6012 r7415  
    350350(defparameter a-short-float 1.0s0)
    351351
    352 
     352#+32-bit-target
    353353(defmethod print-object ((rs random-state) stream)
    354354  (format stream "#.(~S ~S ~S)"         ;>> #.GAG!!!
     
    356356          (%svref rs 1)
    357357          (%svref rs 2)))
     358
     359#+64-bit-target
     360(defmethod print-object ((rs random-state) stream)
     361  (let* ((s1 (%svref rs 1)))
     362    (format stream "#.(~S ~S ~S)"       ;>> #.GAG!!!
     363            'ccl::initialize-random-state
     364            (ldb (byte 16 16) s1)
     365            (ldb (byte 16 0) s1))))
    358366
    359367
Note: See TracChangeset for help on using the changeset viewer.