--- 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
--- 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.")