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

Commits:

1 changed file:

Changes:

  • src/code/float-trap.lisp
    ... ... @@ -514,7 +514,7 @@
    514 514
       SET-FLOATING-POINT-MODES.
    
    515 515
     
    
    516 516
       Only the rounding mode is restored on exit; other floating-point
    
    517
    -  modes are not modified. "
    
    517
    +  modes are not modified."
    
    518 518
       (let ((old-mode (gensym "OLD-MODE-"))
    
    519 519
             (new-mode (gensym "NEW-MODE-")))
    
    520 520
       `(let ((,old-mode (ldb float-rounding-mode (floating-point-modes)))