From 92de957629171c6ba130c9e6f991aa1b0e5a7931 Mon Sep 17 00:00:00 2001 From: colin Date: Sun, 9 Jul 2023 14:29:14 -0700 Subject: added ?>> form --- hyperquirks.lisp | 5 +++++ 1 file changed, 5 insertions(+) (limited to 'hyperquirks.lisp') diff --git a/hyperquirks.lisp b/hyperquirks.lisp index 7b6da14..22537f2 100644 --- a/hyperquirks.lisp +++ b/hyperquirks.lisp @@ -227,6 +227,11 @@ E.g. (defmacro >>> (initform &rest pipe-forms) `(>> () ,initform ,@pipe-forms)) +(defmacro ?>> (initform &rest pipe-forms) + `(>> () ,initform ,@(loop :for form :in pipe-forms + :collect :? + :collect form))) + (defmacro binding-cond (&body clauses) "Like cond except the first form of every clause is a binding form alá IMPERATIVE. -- cgit v1.2.3