scheme macro vs common lisp macro

標籤：使用   ar   工作   amp   ad   ef   python   on   

common lisp的let宏定義如下

(defmacro our-left (binds &body body)  `((lambda ,(mapcar #‘(lambda (x) (if (consp x) (car x) x))     binds)      ,@body)      ,@(mapcar #‘(lambda (x)    (if (consp x) (cadr x) nil))binds)));;;;;;;;;;;;;;;;;;;;;test;;;;(our-left ((x 1) (y 2))    (+ x y))展開之後變成=>((lambda (x y) (+ x y) 1 2)這裡我們不難看出其實let不過是lambda的文法糖:)

scheme的let宏定義如下

(defien-syntax let  (syntax-rules ()    ((_ ((x v) ...) e1 e2 ...)     ((lambda (x ...) e1 e2 ...) v ...))))scheme的比上面的那個優雅，直觀吧，我們能不費力氣的看出這個let內部是如何工作的。

 scheme的let*宏如下

(define-syntax my-let*  (syntax-rules ()    ((_ ((p v)) b ...)     (let ((p v)) b ...))    ((_ ((p1 v1) (p2 v2) ...) b ...)     (let ((p1 v1))       (my-let* ((p2 v2) ...)b ...)))))其實scheme的宏是一種模式比對，所以事先一定要把所有的情況的考慮清楚。

那一堆的使用@來解構真的是沒有必要的，看看shceme是如何處理的，根本沒有必要先包裹然後解構啊。