slime/bin/tests/macro_expand.slime

(define-macro (error)
  (assert t))


(define-macro (test)
  `(begin
    (+ 1 1)
    (error)
    (+ 1 1)))

(test)

(assert t)