hg.stevelosh.com > cl-losh

cf3fce2172bc 

Add `negatef`
[view raw] [browse files]
author Steve Losh <steve@stevelosh.com>
date Tue, 16 Aug 2016 18:26:36 +0000
parents b0292af3444e
children f67e0d7ace27
branches/tags (none)
files losh.lisp package.lisp

Changes

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