lambda短縮マクロ ref: http://qiita.com/items/1380

CommonLisp

;; #[+ 1 2] 
;;  => #'(lambda () (+ 1 2))
;;
;; #[+ _ 1] 
;;  => #'(lambda (_) (+ _ 1))
;;
;; #[if (< _0 10) (+ _1 2) (+ (- 100 _0) _2)] 
;;  => #'(lambda (_0 _1 _2) (if (< _0 10) (+ _1 2) (+ (- 100 _0) _2)))

> (funcall #[+ 10 100])
; 110
> (funcall #[+ _ 100] 1)
; 101
> (mapcar #[list _0 _1 _2] '(1 2 3) '(4 5 6) '(7 8 9))
;((1 4 7) (2 5 8) (3 6 9))