Scheme版(Gauche版?)もここに!

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さんのコメントにより引用を訂正しました。
テストコードをそのままメッセージに含めることができるんですね! これは強力です。