求一个lisp宏实现

wojiaohesen

最近一段时间在看lisp的宏，不知道该怎么样写这样的宏，
功能上就是类似于with-open-file，让我可以这么使用
(with-greate (greater 3 4)
  (list greater))

谢谢各位，麻烦帮忙实现一下。

wojiaohesen

我想这应该是答案吧。不知道谁能指出其中不合理的地方不？谢谢

(defmacro greater (x y)
  `((lambda (x y) (if (< x y) y x)) ,x ,y))

(defmacro with-greate (args &rest body)
  `(let ((,(first args) (greater ,(second args) ,(third args))))
     (progn ,@body)))


(with-greate (in 2 1) (+ in 4))