Changeset 7260


Ignore:
Timestamp:
Sep 19, 2007, 9:49:52 AM (12 years ago)
Author:
gb
Message:

PRINT-OBJECT on RANDOM-STATE: 32/64 changes.

File:
1 edited

Legend:

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

    r6012 r7260  
    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.