--- a/losh.lisp Mon Aug 15 20:59:47 2016 +0000
+++ b/losh.lisp Tue Aug 16 18:26:36 2016 +0000
@@ -293,6 +293,9 @@
(define-modify-macro clampf (from to) clamp
"Clamp `place` between `from` and `to` in-place.")
+(define-modify-macro negatef () -
+ "Negate the value of `place`.")
+
(define-modify-macro %callf (function)
(lambda (value function)
--- a/package.lisp Mon Aug 15 20:59:47 2016 +0000
+++ b/package.lisp Tue Aug 16 18:26:36 2016 +0000
@@ -36,6 +36,7 @@
#:modf
#:remainderf
#:clampf
+ #:negatef
#:callf
#:take