Clojure內部宏排序依據

Question

我需要在一個宏內進行排序，我有一個這樣的映射集：

(def persons '({:id 1 :name "olle"} {:id 2 :name "anna"} {:id 3 :name "isak"} {:id 4 :name "beatrice"}))

如果我嘗試做(sort-by :name persons)排序(sort-by :name persons)則工作正常並對其進行排序

但在宏中：

(defmacro select
  [columns _ map _ where _ order]
  `(sort-by ~order ~@map))

它不排序。

REPL（clojure.core / sort-by：姓名）

Answer 1

~@map子句中出現錯誤。 您在這里不需要@ 。 該符號在適當位置擴展了一個序列，例如[1 2 3] -> 1 2 3 。

工作代碼：

(defmacro select
  [columns _ map _ where _ order]
  `(sort-by ~order ~map))

檢查並擴展宏：

(macroexpand '(select nil nil persons nil nil nil :id))
(clojure.core/sort-by :id persons)