my assersion macro

my-assert.el

;; 関数のトップレベルでしか動作しないので注意
(defmacro my-assert (form)
  `(let* ((backtrace (backtrace-frame 2))
          (func-name (nth 1 backtrace)))
     (unless ,form (error "Assert in %s(): should be %S" func-name ',form))))

test.el

;; test func
(defun test1(n)
  (my-assert (< n 100))
  'ok)

(defun test2(s)
  (my-assert (stringp s))
  'ok)

;; try test
(test1 100)
; => "Assert in test1(): should be (< n 100)"

(test1 99)
; => ok

(test2 999)
; => "Assert in test2(): should be (stringp s)"

(test2 "xxx")
; => ok