Permalink
Browse files

Remove ad-hoc infinities

  • Loading branch information...
Shinmera committed Feb 1, 2019
1 parent b889d50 commit d1365fd640e10dc48de91efde0b242081ec21d6b
Showing with 1 addition and 9 deletions.
  1. +0 −9 toolkit.lisp
  2. +1 −0 trial.asd
@@ -40,15 +40,6 @@
(dolist (sub (c2mop:class-direct-subclasses class))
(apply-class-changes sub)))

;; FIXME: put into a library
(defconstant single-float-positive-infinity
#+sbcl sb-ext:single-float-positive-infinity
#-sbcl most-positive-single-float)

(defconstant single-float-negative-infinity
#+sbcl sb-ext:single-float-negative-infinity
#-sbcl most-negative-single-float)

(defmacro with-float-traps-masked (args &body body)
(declare (ignorable args))
#+sbcl `(sb-int:with-float-traps-masked ,(or args '(:overflow :underflow :inexact))
@@ -127,6 +127,7 @@
:glsl-toolkit
:fast-io
:ieee-floats
:float-features
:lquery
:static-vectors
:pngload

0 comments on commit d1365fd

Please sign in to comment.