 
 (fact
   (let [x 99]
-    (my-if-not-1 (> x 100)
-                 (do (println "It's large") :large)
-                 (do (println "It's small") :small)))
+    (our-if-not-1 (> x 100)
+                  (do (println "It's large") :large)
+                  (do (println "It's small") :small)))
   => :large)
 
 ;;;; What's happening?

;;;; What's a macro expansion?

(fact
  (macroexpand-1 '(my-if-not-1 (> x 100)
                               (do (println "It's large") :large)
                               (do (println "It's small") :small)))
  => '(if (> x 100)
        (do (println "It's small") :small)
        (do (println "It's large") :large)))


;;;; Define a macro:

(defmacro our-if-not-1
  ([test then else]
   (list 'if test else then)))

