diff options
author | Colin Okay <okay@toyful.space> | 2022-02-03 08:27:04 -0600 |
---|---|---|
committer | Colin Okay <okay@toyful.space> | 2022-02-03 08:27:04 -0600 |
commit | b26d274c67d8dd52111ba769a4dd8118bbdd0234 (patch) | |
tree | 24b722681ecce2e5eb3c70f9c2956f923787eadd /functions.lisp | |
parent | fac66522b7b05d2e520da18d187ab3128c2c1a9a (diff) |
pared the library down to just the reader macro and nesting macro
Diffstat (limited to 'functions.lisp')
-rw-r--r-- | functions.lisp | 30 |
1 files changed, 0 insertions, 30 deletions
diff --git a/functions.lisp b/functions.lisp deleted file mode 100644 index aeccbb3..0000000 --- a/functions.lisp +++ /dev/null @@ -1,30 +0,0 @@ -;;;; lambda-tools.lisp - -(in-package #:lambda-riffs) - -(defun threading> (arg &rest fns) - (dolist (fn fns arg) - (setf arg (funcall fn arg)))) - -(defun all> (arg &rest preds) - "Predicate Filter. Returns ARG if (PRED ARG) is non-NIL for every -PRED in PREDS" - (dolist (pred preds arg) - (unless (funcall pred arg) - (return-from all> nil)))) - - -(defun some> (arg &rest preds) - "Predicate filter. Returns ARG if (PRED ARG) is non-NIL for any PRED -in PREDS." - (dolist (pred preds nil) - (when (funcall pred arg) - (return-from some> arg)))) - - -(defun <> (&rest fns) - (lambda (arg) - (apply #'>> arg fns))) - - - |