Clojure `thrush` operator macro in Common Lisp

clj-thrush.lisp

(defmacro -> (x &rest args)
  "A Common-Lisp implementation of the Clojure `thrush` operator."
  (destructuring-bind (form &rest more)
      args
    (cond
      (more `(-> (-> ,x ,form) ,@more))
      ((and (consp form)
            (or (eq (car form) 'lambda)
                (eq (car form) 'function)))
       `(funcall ,form ,x))
      ((consp form) `(,(car form) ,x ,@(cdr form)))
      (form `(,form ,x))
      (t x))))

#+test
(equal (-> 0
           (lambda (x) (+ 1 x))
           (cons 1)
           (cons 2))
       '((1 . 1) . 2))