Raymond Toy pushed to branch issue-435-add-core-math-lisp-support at cmucl / cmucl

Commits:

1 changed file:

Changes:

  • src/code/float-trap.lisp
    ... ... @@ -92,7 +92,7 @@
    92 92
         (setf (x87-floating-point-modes) x87-modes)))
    
    93 93
       )
    
    94 94
     
    
    95
    -#+(and sse2)
    
    95
    +#+(and sse2 (not darwin))
    
    96 96
     (progn
    
    97 97
       (defun floating-point-modes ()
    
    98 98
         ;; Combine the modes from the FPU and SSE2 units.  Since the sse
    
    ... ... @@ -133,7 +133,7 @@
    133 133
           (setf (vm::x87-floating-point-modes) (ldb (byte 30 0) x87-modes)))
    
    134 134
         new-mode))
    
    135 135
     
    
    136
    -#+(and nil sse2 darwin)
    
    136
    +#+(and sse2 darwin)
    
    137 137
     (progn
    
    138 138
       (defun floating-point-modes ()
    
    139 139
         ;; Get just the SSE2 mode bits.