fiddlerwoaroof/data-lens
1
0
Fork 0
mirror of https://github.com/fiddlerwoaroof/data-lens.git synced 2025-11-08 18:26:32 +00:00
Code Issues Releases Wiki Activity

Add function for following a function call with a side-effect

Browse Source
This commit is contained in:
Ed Langley
2018-11-18 14:45:15 -08:00
parent f7f7b3e6cc
commit 18dbfba4dc
1 changed files with 5 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
lens.lisp
View File

@ -178,6 +178,11 @@
(apply f args)) (apply f args))
r))))) r)))))
(defun =>> (fun1 fun2)
(lambda (i)
(prog1 (funcall fun1 i)
(funcall fun2))))
(defun-ct derive (diff-fun &key (key #'identity)) (defun-ct derive (diff-fun &key (key #'identity))
(lambda (list) (lambda (list)
(cons (cons nil (car list)) (cons (cons nil (car list))