Piping of forms in Common Lisp

gistfile1.txt

(defmacro -> (form &rest forms)
  (loop with result = form
        with next-form = nil
        while forms
        do (setf next-form (pop forms))
        (if (consp next-form)
            (setf result (destructuring-bind (function . args) next-form
                           `(,function ,result ,@args)))
          (setf result `(,next-form ,result)))
        finally (return result)))