ArteEtMarte.el

(defmacro clj/->> (o &rest forms)
  "Threads the expr through the forms.
 Inserts o as the  last item in the first form,
 making a list of it if it is not a  list already.
If there are more forms, inserts the first form
 as the  last item in second form, etc."
  (cond ((not forms) o)
        ((= 1 (length forms))
         (let ((f (first forms)))
           (append (if (symbolp f)
                       (list f) f)
                   (list o))))
        (:else `(clj/->> (clj/->> ,o ,(first forms)) ,@(rest forms)))))