gistfile1.txt

(defmacro -> (forms)
  (let ((forms (reverse forms)))
    (if (null (cdr forms))
        (car forms)
        (let ((base (car forms)))
          (unless (listp base)
            (setf base (list base)))
          (list* (car base)
                 (test (reverse (cdr forms)))
                 (cdr base))))))

(macroexpand-1 '(-> ((handler/site app-routes)
                     (wrap-resource "web")
                     (wrap-file-info)
                     (wrap-params)
                     (wrap-keyword-params))))

=> (WRAP-KEYWORD-PARAMS
    (WRAP-PARAMS
     (WRAP-FILE-INFO
      (WRAP-RESOURCE
       (HANDLER/SITE APP-ROUTES)
       "web")))), T