Raymond Toy pushed to branch issue-298-with-float-rounding-mode at cmucl / cmucl

Commits:

1 changed file:

Changes:

  • src/code/float-trap.lisp
    ... ... @@ -498,17 +498,20 @@
    498 498
     
    
    499 499
     (defmacro with-float-rounding-mode ((rounding-mode) &body body)
    
    500 500
       _N"Execute BODY with the floating-point rounding mode set to
    
    501
    - ROUNDING-MODE.  ROUNDING-MODE must a one of
    
    501
    +  ROUNDING-MODE.  ROUNDING-MODE must be a one:
    
    502 502
     
    
    503
    -    :NEAREST
    
    504
    -       the default mode of round to nearest even
    
    505
    -    :ZERO
    
    503
    +   :NEAREST
    
    504
    +       the default mode of round to nearest even.
    
    505
    +   :ZERO
    
    506 506
            round numbers down towards zero.  Positive numbers round down
    
    507 507
            and negative numbers round up.
    
    508
    -    :POSITIVE-INFINITY
    
    509
    -       round numbers up towards positive infinity
    
    510
    -    :NEGATIVE-INFINITY
    
    511
    -       round numbers down towards negative infinity
    
    508
    +   :POSITIVE-INFINITY
    
    509
    +       round numbers up towards positive infinity.
    
    510
    +   :NEGATIVE-INFINITY
    
    511
    +       round numbers down towards negative infinity.
    
    512
    +
    
    513
    +  These are the same as the possible values for the rounding mode in
    
    514
    +  SET-FLOATING-POINT-MODES.
    
    512 515
     
    
    513 516
       Only the rounding mode is restored on exit; other floating-point
    
    514 517
       modes are not modified. "