# HG changeset patch
# User Steve Losh <steve@stevelosh.com>
# Date 1471913451 0
# Node ID 4e6bf7dc3093a30e6b6a9437011aca825c0a3ae5
# Parent  fcc9fc4cb7c25ccb94745ed3d8cfc30a6d479709
Add `notf`

diff -r fcc9fc4cb7c2 -r 4e6bf7dc3093 DOCUMENTATION.markdown
--- a/DOCUMENTATION.markdown	Tue Aug 23 00:48:04 2016 +0000
+++ b/DOCUMENTATION.markdown	Tue Aug 23 00:50:51 2016 +0000
@@ -566,6 +566,12 @@
 
 Negate the value of `place`.
 
+### `NOTF` (macro)
+
+    (NOTF PLACE)
+
+Set `place` to `(not place)` in-place.
+
 ### `REMAINDERF` (macro)
 
     (REMAINDERF PLACE DIVISOR)
diff -r fcc9fc4cb7c2 -r 4e6bf7dc3093 losh.lisp
--- a/losh.lisp	Tue Aug 23 00:48:04 2016 +0000
+++ b/losh.lisp	Tue Aug 23 00:50:51 2016 +0000
@@ -406,6 +406,9 @@
 (define-modify-macro negatef () -
   "Negate the value of `place`.")
 
+(define-modify-macro notf () not
+  "Set `place` to `(not place)` in-place.")
+
 
 (defun %funcall (value function)
   (funcall function value))
diff -r fcc9fc4cb7c2 -r 4e6bf7dc3093 package.lisp
--- a/package.lisp	Tue Aug 23 00:48:04 2016 +0000
+++ b/package.lisp	Tue Aug 23 00:50:51 2016 +0000
@@ -84,6 +84,7 @@
     #:remainderf
     #:clampf
     #:negatef
+    #:notf
     #:callf))
 
 (defsubpackage #:losh.lists