Was ist falsch mit diesem Makro in Clojure?

Question

(defmacro nif [expr pos zer neg]
  '(condp = (Integer/signum ~expr) 
     -1 ~neg
     0 ~zer
     1 ~pos))

Ich erhalte diesen Fehler.

1:1 user=> #<Namespace Chapter7Macros>
1:2 Chapter7Macros=> (nif 1 (+ 2 2) (- 2 2) (- 3 2))
1:3 Chapter7Macros=> java.lang.Exception: Unable to resolve symbol: expr in this context (repl-1:57)

Answer 1

Ersetzen Sie das Anführungszeichen ( ' ) durch einen Backtick ( ` ), um das Syntax-Quoting zu aktivieren.

Answer 2

Im Allgemeinen ist die Verwendung von (macroexpand-1 '(nif 1 ... )) sehr hilfreich, da es Ihnen den Code anzeigt, in den Ihr Makro tatsächlich übersetzt wird.