(def a (str range))

#'user/a

(vector? '[a 1])

true

(def a {::foo 10})

#'user/a

(quote (a b c))

(a b c)

(if-let [a nil] 1)

nil

(let [a +] `a)

user/a

(def a "foo" 1)

#'user/a

(quote (a macro thingy))

(a macro thingy)

(if-let [[a b] ()] "OK")

"OK"

(when-let [[a b] []] 42)

42

(defrecord Bla [a b])

#'user/Bla

(defmacro a [] `(b))

#'user/a

(def a (Exception. "foo"))

#'user/a

(list (quote a) :a)

(a :a)

(meta ^:a (quote a))

nil

(defmacro foo* [a more])

#'user/foo*

(defrecord Foo [a b])

#'user/Foo

(def ^:const a 2)

#'user/a

(let [[:a] [1]] a)

1

(defrecord Binary [a b])

#'user/Binary

(defrecord myrec [a b])

#'user/myrec

(macroexpand-1 '(.foo a))

(.foo a)

((quote a) (quote b))

nil

(defrecord RecBar [a b])

#'user/RecBar

(clojure.core/defrecord fred [a b])

#'user/fred

(case 'a a 1)

1

(defn #^Integer foo [a])

#'user/foo

(coll? (rest '(a)))

true

(defmacro b [] `(a))

#'user/b

(defrecord A [i j])

#'user/A

(let [a (str 1)])

nil

(rest '(a b))

(b)

(def a (atom 1))

#'user/a

(defprotocol A
  (foo [this]))

{:methods #{#object
             [clojure.lang.MultiFn 0x388ff0ce "clojure.lang.MultiFn@388ff0ce"]},
 :name user/A,
 :ns #object [sci.impl.vars.SciNamespace 0x37a47b18 "user"],
 :sigs {:foo {:arglists ([this]), :doc nil, :name foo}}}

(defn a [] (println "1"))

#'user/a

(def a (atom 10))

#'user/a

(defrecord A [^String name])

#'user/A

(clojure.core/defn a [] (quote clojure.core/foo))

#'user/a

(let [a 1] #'a)

1

(class (quote [a b]))

clojure.lang.PersistentVector

(macroexpand '(defn a []))

(defn a [])

('a '{a 0})

0

(defprotocol test
  (a [this]))

{:methods #{#object
             [clojure.lang.MultiFn 0x1a3ea2d5 "clojure.lang.MultiFn@1a3ea2d5"]},
 :name user/test,
 :ns #object [sci.impl.vars.SciNamespace 0x37a47b18 "user"],
 :sigs {:a {:arglists ([this]), :doc nil, :name a}}}

(def a (map inc))

#'user/a

(print "I'm a bot")

nil

"I'm a bot"

(defrecord A [id foo])

#'user/A

(if-let [a false] 10)

nil

(binding [*print-length* 64]
  (let [a (object-array 64)
        v (vec a)]
    (aset a 0 :hi)
    (prn v)))

nil

"[nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil]\n"

(defn work-order
  [a b]
  (cond (= a b) 0
        (< (:cost-est a) (:cost-est b)) -1
        :else 1))

#'user/work-order

(apply (fn [& {:keys [a b], :or {a 3, b 4}}] [a b]) (apply concat {:b 2}))

[3 2]