d8fe9c6ee9f4
Add truncatef
| author | Steve Losh <steve@stevelosh.com> |
|---|---|
| date | Thu, 22 Oct 2020 21:42:10 -0400 |
| parents | ea581753e904 |
| children | cacafa0cae85 |
| branches/tags | (none) |
| files | package.lisp src/mutation.lisp |
Changes
--- 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.")