Changeset 15403


Ignore:
Timestamp:
May 31, 2012, 1:14:23 PM (7 years ago)
Author:
gb
Message:

PRINT.*-FLOAT.4 has the same bug as PRINT.*-FLOAT.2 (when i = -10000000,
(float i) should and does print using scientific notation.)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/tests/ansi-tests/print-floats.lsp

    r15399 r15403  
    7676                        for s2 = (format nil "~A.0" i)
    7777                        repeat 10000
    78                         unless (or (/= i (rational f))  ;; not enough bits
     78                        unless (or (= i -10000000)
     79                                   (/= i (rational f))  ;; not enough bits
    7980                                ;; (> (nth-value 1 (integer-decode-float f)) 0)
    8081                                (and (> len1 4)
     
    172173                        for s2 = (format nil "~A.0" i)
    173174                        repeat 10000
    174                         unless (or (/= i (rational f))  ;; not enough bits
     175                        unless (or (= i -10000000)
     176                                   (/= i (rational f))  ;; not enough bits
    175177                                ;; (> (nth-value 1 (integer-decode-float f)) 0)
    176178                                (and (> len1 4)
     
    268270                        for s2 = (format nil "~A.0" i)
    269271                        repeat 10000
    270                         unless (or (/= i (rational f))  ;; not enough bits
     272                        unless (or (= i -10000000)
     273                                   (/= i (rational f))  ;; not enough bits
    271274                                ;; (> (nth-value 1 (integer-decode-float f)) 0)
    272275                                (and (> len1 4)
     
    364367                        for s2 = (format nil "~A.0" i)
    365368                        repeat 10000
    366                         unless (or (/= i (rational f))  ;; not enough bits
     369                        unless (or (= i -10000000)
     370                                   (/= i (rational f))  ;; not enough bits
    367371                                ;; (> (nth-value 1 (integer-decode-float f)) 0)
    368372                                (and (> len1 4)
Note: See TracChangeset for help on using the changeset viewer.