Lispでパイプ演算子

#はじめに
ElixirやRubyなどモダンな言語にはパイプ演算子というちょっと便利な記法があります。Lispのマクロで取り入れてみました。コードはISLispで書いてありますが、Common-Lispでもそのまま動くと思います。

#表記

(pipe 1 |> (foo 2) |> (bar 3) |> (boo 4))

このように表記することとします。これは次のS式と等価です。

(macroexpand-1 '(pipe 1 |> (foo 2) |> (bar 3) |> (boo 4))) 
;; #=> (BOO (BAR (FOO 1 2) 3) 4)

#使い方

(defun foo (x y)
    (+ x y) )

(defun bar (x y)
    (* x y) )

(defun boo (x y)
    (- x y) )

(pipe 1 |> (foo 2) |> (bar 3) |> (boo 4)) 
;; #=> 5

#実装

common_lisp

(defmacro pipe (:rest expr)
    (pipe-macro (cdr expr) (car expr)) )

(defun pipe-macro (pipe func)
    (cond ((null pipe) func)
          ((eq (car pipe) '|>) (pipe-macro (cdr pipe) func))
          (t (pipe-macro (cdr pipe) (pipe-macro1 (car pipe) func))) ))

(defun pipe-macro1 (fun funcs)
    (cons (car fun) (cons funcs (cdr fun))) )

#Github
tests/pipe.lsp にコードがあります。