Use float-features:with-float-traps-masked instead of self-written wi…

…thout-fp-traps which works on sbcl only.
lispgames · Jun 8, 2023 · 1a60eaa · 1a60eaa
1 parent 80410b5
commit 1a60eaa
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 8 deletions.
diff --git a/sdl2.asd b/sdl2.asd
@@ -8,6 +8,7 @@
                :cl-ppcre
                :trivial-channels
                :trivial-features
+               :float-features
                #+darwin :cl-glut)
   :pathname "src"
   :serial t

diff --git a/src/sdl2.lisp b/src/sdl2.lisp
@@ -128,15 +128,8 @@ into CL's boolean type system."
         :while msg :do
           (handle-message msg)))
 
-(defmacro without-fp-traps (&body body)
-  #+sbcl
-  `(sb-int:with-float-traps-masked (:underflow :overflow :inexact :invalid :divide-by-zero)
-     ,@body)
-  #-sbcl
-  `(progn ,@body))
-
 (defun sdl-main-thread ()
-  (without-fp-traps
+  (float-features:with-float-traps-masked t
     (let ((*main-thread* (bt:current-thread)))
       (loop :while *main-thread-channel* :do
         (block loop-block