# HG changeset patch
# User Steve Losh <steve@stevelosh.com>
# Date 1471371996 0
# Node ID cf3fce2172bcd91becfa8a2f237f3e5fe80ccabf
# Parent  b0292af3444e6f14f6b7f05a7c160e72bfdf244a
Add `negatef`

diff -r b0292af3444e -r cf3fce2172bc losh.lisp
--- 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)
diff -r b0292af3444e -r cf3fce2172bc package.lisp
--- 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