# HG changeset patch
# User Steve Losh <steve@stevelosh.com>
# Date 1603417330 14400
# Node ID d8fe9c6ee9f4e4a45cefb669d8f65995ff9b9665
# Parent  ea581753e904d1b61da00205fd6311b9e8ce343f
Add truncatef

diff -r ea581753e904 -r d8fe9c6ee9f4 package.lisp
--- a/package.lisp	Sun Sep 27 13:47:35 2020 -0400
+++ b/package.lisp	Thu Oct 22 21:42:10 2020 -0400
@@ -104,6 +104,7 @@
     :divf
     :modf
     :remainderf
+    :truncatef
     :clampf
     :negatef
     :notf
diff -r ea581753e904 -r d8fe9c6ee9f4 src/mutation.lisp
--- a/src/mutation.lisp	Sun Sep 27 13:47:35 2020 -0400
+++ b/src/mutation.lisp	Thu Oct 22 21:42:10 2020 -0400
@@ -50,6 +50,9 @@
 (define-modify-macro remainderf (divisor) rem
   "Remainder `place` by `divisor` in-place.")
 
+(define-modify-macro truncatef (divisor) truncate
+  "Truncate `place` by `divisor` in-place.")
+
 (define-modify-macro clampf (from to) losh.math:clamp
   "Clamp `place` between `from` and `to` in-place.")