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

2026-08-16 00:34:37 +00:00 · 2018-11-18 14:45:15 -08:00
parent f7f7b3e6cc
commit 18dbfba4dc
1 changed files with 5 additions and 0 deletions
@@ -178,6 +178,11 @@
                       (apply f args))
                     r)))))

+(defun =>> (fun1 fun2)
+  (lambda (i)
+    (prog1 (funcall fun1 i)
+      (funcall fun2))))
+
 (defun-ct derive (diff-fun &key (key #'identity))
  (lambda (list)
    (cons (cons nil (car list))