Skip to content
Permalink
Browse files

Remove with-float-traps-masked (use float-features instead)

  • Loading branch information...
Shinmera committed Apr 15, 2019
1 parent b5d36d9 commit b5c84e5554ff22139734d236e11419689aa3660e
Showing with 0 additions and 7 deletions.
  1. +0 −1 package.lisp
  2. +0 −6 toolkit.lisp
@@ -694,7 +694,6 @@
(:export
#:finalize
#:gl-property
#:with-float-traps-masked
#:current-time
#:executable-directory
#:enlist
@@ -40,12 +40,6 @@
(dolist (sub (c2mop:class-direct-subclasses class))
(apply-class-changes sub)))

(defmacro with-float-traps-masked (args &body body)
(declare (ignorable args))
#+sbcl `(sb-int:with-float-traps-masked ,(or args '(:overflow :underflow :inexact))
,@body)
#-sbcl (progn ,@body))

#+sbcl
(define-symbol-macro current-time-start
(load-time-value (logand (sb-ext:get-time-of-day) (1- (expt 2 32)))))

0 comments on commit b5c84e5

Please sign in to comment.
You can’t perform that action at this time.