分享:让 Common Lisp 代码更简洁可读性高一些~

用scheme写了个简单的 Threading function:

(define (~>> arg list-of-funcs)
  ((foldl compose identity list-of-funcs) arg))

;; For example:
(~>> 0
     (list add1
           add2
           product3
           product4))