How can I change a list to code in a Clojure macro?

Question

I have the following macro:

(defmacro ss [x]

`(clojureql.core/select 
      (clojureql.core/table db "users_table")
      (clojureql.core/where  ~x)
  )
)

(macroexpand '(ss '(= :type "special")))

: but it produces :

(clojureql.core/select (clojureql.core/table oe.db.dbcore/db "users_table") (clojureql.core/where '(= :type "special")))

: instead of :

(clojureql.core/select (clojureql.core/table oe.db.dbcore/db "users_table") (clojureql.core/where (= :type "special")))

: I realise that the problem is I am passing in a list '(= :type "special"), but how can I get this to unquote in the macro?

Update:

I finally got this working thanks to Mikera's answer by doing this:

(defn ss [x]

  (clojureql.core/select 
      (clojureql.core/table db "users_table")
      x
  )


)

(macroexpand '(ss (eval `(clojureql.core/where ~'(= :type "special")))))

: although the output is slightly different it works as expected:

(ss (eval (clojure.core/seq (clojure.core/concat (clojure.core/list 'clojureql.core/where) (clojure.core/list '(= :type "special"))))))

I've used eval in such case. Just change ~x to ~(eval x). But I don't know, maybe there is another solution or you just misspelled with (= :type "special"). — m039
– m039, Commented Jul 7, 2011 at 19:43
When I use eval I get: (clojureql.core/select (clojureql.core/table oe.db.dbcore/db "users_table") (clojureql.core/where (clojure.core/eval quote (= :type "special")))) — yazz.com
– yazz.com, Commented Jul 7, 2011 at 19:57
It's really strange, for me eval is working (I tried (defmacro ss [x] `(* 3 ~(eval x))) (macroexpand '(ss '(+ 1 2)))). But if the code is expanded to (quote (= :type "special")) then I come to only one solution: to use ~(second x). But don't know why I don't like it. :) — m039
– m039, Commented Jul 7, 2011 at 20:26

mikera · Accepted Answer · 2011-07-07 19:40:02Z

3

Looks to me like you're passing the wrong thing to macroexpand: you should probably use:

(macroexpand '(ss (= :type "special")))

i.e. you ony need one quote at the beginning to quote the entire expression.

answered Jul 7, 2011 at 19:40

mikera

107k28 gold badges265 silver badges427 bronze badges

Sign up to request clarification or add additional context in comments.

6 Comments

yazz.com Over a year ago

I am using '(= :type "special") as it is passed around as a parameter in my program, as I cannot pass around (= :type "special") in Clojure without the '

mikera Over a year ago

Hmmm not quite sure what you mean... are you trying to expand the macro at runtime using eval? if so you can run the command with (eval `(ss ~parameter))

Svante Over a year ago

Zubair: quote quotes its entire argument. Have you tried mikera's suggestion?

yazz.com Over a year ago

Yes, that worked, thanks Mikera! I have updated the question to show what finally worked.

SK-logic Over a year ago

Why using eval, if (cadr xx) is sufficient (as long as the argument is always quoted)?

|

kotarak · Accepted Answer · 2011-07-08 07:24:53Z

2

You cannot pass runtime arguments to macros since the former are only known at - well - runtime, while the latter are already expanded and compiled at - well - compile time.

You must use a function.

(defn get-users-by-type
  [t]
  (cql/select
    (cql/table db "users_table")
    (cql/where (= :type t))))

answered Jul 8, 2011 at 7:24

kotarak

17.3k2 gold badges53 silver badges41 bronze badges

Collectives™ on Stack Overflow

How can I change a list to code in a Clojure macro?

2 Answers 2

6 Comments

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

2 Answers 2

6 Comments

Comments

Your Answer

Sign up or log in

Post as a guest

Related