http://www.shiro.dreamhost.com/scheme/wiliki/wiliki.cgi?hira%3a%ba%ee%a4%c3%a4%bf%a5%e2%a5%ce#H-13gnmrs
Scheme版のアサートマクロをid:hirauさんが作られたようです。Schemeって面白そうですよね。私はEmacs Lispしか触ったことないですが、使ってみたくなりました。
以下実行例を引用します。いい感じです。
;;;実行例 (define a '(123 :456)) (A (= (car a) 1) カーは1でなきゃイヤン。 a = ,a) *** ERROR: Assertion Failed: (|カーは1でなきゃイヤン。| a = (123 :456)) (= (car a) 1)
#追記 作者のid:hirauさんのコメントにより引用を訂正しました。
テストコードをそのままメッセージに含めることができるんですね! これは強力です。