Naive implementation of a "pipe" macro (does *not* support lambdas)

pipe.lisp

(defmacro -> (args &body forms)
  (flet ((ensure-list (arg) (if (listp arg) arg (list arg))))
    (reduce
     (lambda (args f)
       (ensure-list
        (case (type-of f)
          (function (apply f args))
          (symbol (apply f args))
          (cons (apply (car f) (append (cdr f) args))))))
     forms
     :initial-value (ensure-list args))))

(-> 1
    (+ 1)
    1+
    (* 2)
    (format t "result is: ~a~%")) ; #=> result is: 6