From b26d274c67d8dd52111ba769a4dd8118bbdd0234 Mon Sep 17 00:00:00 2001 From: Colin Okay Date: Thu, 3 Feb 2022 08:27:04 -0600 Subject: pared the library down to just the reader macro and nesting macro --- functions.lisp | 30 ------------------------------ 1 file changed, 30 deletions(-) delete mode 100644 functions.lisp (limited to 'functions.lisp') 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))) - - - -- cgit v1.2.3