diff options
Diffstat (limited to 'hyperquirks.lisp')
-rw-r--r-- | hyperquirks.lisp | 5 |
1 files changed, 5 insertions, 0 deletions
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. |