hg.stevelosh.com > cl-losh

4e6bf7dc3093 

Add `notf`
[view raw] [browse files]
author Steve Losh <steve@stevelosh.com>
date Tue, 23 Aug 2016 00:50:51 +0000
parents fcc9fc4cb7c2
children d39af38a14f8
branches/tags (none)
files DOCUMENTATION.markdown losh.lisp package.lisp

Changes

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