用于"让"匹配Clojure的Common Lisp宏

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

但是,这不是一个好主意(也不是新的!):

您的代码可能是一个Clojure的用户更可读的,但它会是少了利斯佩尔可读.

一个clojurer 可能会得到一种虚假的安全感,而一个lisper 会感到困惑.

不要自欺欺人

将Common Lisp代码移植到Clojure比编写一些简单的宏要困难得多.