Wie Variablen in einem Makro definieren, so dass sie für den Anrufer des Makros

Question

verfügbar

ich einen Makro DBTEST haben will, die wie folgt verwendet werden können:

sollte

(dbtest 
    (prn test-object1) 
    (prn test-object2)) 

Test-object1 und Test-object2 sein Variablen, die durch dbtest definiert sind (weil ich sie jedes Mal brauche, wenn ich das Makro dbtest benutze). "prn" ist nur ein Beispiel; Ich möchte beliebigen Code innerhalb des Makros verwenden.

ich versuchte, das:

(defmacro dbtest [& body] 
    `(sql/with-connection db 
    (delete-all-tables) 
    (let [~'test-object1 (insert-object "foo")] 
     ~@body))) 

wo insert-Objekt eine Funktion ist, die etwas in die DB ein und gibt eine die entsprechende Datenstruktur.

Aber es funktioniert nicht: Ich erhalte eine „nicht so var“ Fehler

Answer 1

Es funktioniert für mich:

user=> (defmacro let-test [& body] 
     `(let [~'test-object1 123] ~@body)) 
#'user/let-test 
user=> (let-test (+ test-object1 321)) 
444 

Sind Sie sicher, dass das Problem nicht mit den SQL-bezogene Anrufe ?