簡易 method chain 的なやつ in Common Lisp

revattack.lisp

(defun suffix-transpose1 (form terminal)
  (if form
      (suffix-transpose1 (cdr form)
			(list (cons (car form) terminal)))
      terminal))

(defun suffix-transpose (form)
  (car (suffix-transpose1 (cdr form)
			  (list (car form)))))

;; (5 1+ 1+ 1+) -> (1+ (1+ (1+ 5)))


(defmacro => (&body forms)
  (suffix-transpose forms))

;; (=> 1 1+ 1+ 1+) -> 4

#|
CL-USER> (=> 1 1+ (lambda (x) (progn (pprint x) x)) 1+)

2
3
CL-USER> 
|#