macros - "let"的 Common Lisp 宏以匹配 Clojure

Question

Clojure 的 let 比 Common Lisp 更简洁，括号更少:

 ;Clojure
(let [a 1 b 2]
     (+ a b))


;Common Lisp
(let ( (a 1) (b 2))
    (+ a b))

如何在 Common Lisp 中编写一个等价的宏？:

(letmac ( a 1 b 2)
    (+ a b))

Answer 1

这并不难:

(defmacro clojure-let (bindings &body body)
  `(let ,(loop for (a b) on bindings by #'cddr collect (list a b))
     ,@body))

看看它是如何工作的:

> (macroexpand-1 '(clojure-let (a b c d) (foo) (bar)))
(LET ((A B) (C D)) (FOO) (BAR)) ;
T

但是，这不是一个非常好的主意(和 not a new one either!):

您的代码可能对于 clojure 用户来说更具可读性，但对于 lisper 来说将较少可读。

一个clojurer 可能得到一种错误的安全感，而一个lisper 会感到困惑。

不要自欺欺人

Porting Common Lisp code to Clojure比写几个简单的宏要难得多。